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This manual is intended as a guide for programmers and 
users of the 1401 Operating System, Version II. 

All the ^7 routines documented here are available to 
the user as of July 1, 1968. The documents are self- 
sufficient as far as possible. Where several routines 
are derived from the same source and are identical in 
pattern, they have been combined in one writeup, as in 
the case of the Disk Input/Output macros (DSKI0/I0GET/ 
I0PUT/I0SK). In the Interests of clarity, the basic 
format is identical for all writeups. 

This manual is divided into two parts, for users' 
convenience. The first section consists of mainline 
programs. The second Is entirely AUT0C0DER macro- 
instructions. Standards halts and messages appear in 
Appendix A. 



Please direct any queries concerning the details of pro- 
gram operation to the 

Systems Division 
UWM Computer Center 
Room 28 
Mitchell Hall 
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TITLE: M0NITR 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: none 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



M0NITR, the 1*101 Operating System inter-job super- 
visor, provides the following services and facilities: 

a) Logging of time and other parameters at the begin- 
ning and end-of-jobs. 

b) Maintenance of the system file containing job num- 
bers, man numbers, and function codes. These ser- 
vices include addition of new numbers and codes, 
and deletion of inactive numbers and codes. 

c) The facility to enter an operator's man number at 
the beginning of his shift of duty, and to remove 
the "operator number" at any time. 

d) The facility to command the reading of a log-start 
card, either to begin a new job or to "flush 
through" an input deck from an abnormally-ended 
job. Information on the card may be overridden 
from the console. 

e) Printing of beginning-of-job and end-of-job pages 
containing all the information logged for a job. 

f) Inquiry into the recent history of the system, 
including last time entered, last job performed, 
and activity for the day. 

g) The facility to originate a job, without need for 
a log-start card, from the 1407 console. 

h) The facility to easily call various "system support" 
programs, such as log-dump, copy-disk, etc. 

i) Maintenance of a "master line" file containing 

messages to be communicated to users from the oper- 
ations staff, either typed or printed at the begin- 
ning of a job. Lines may be added or removed. 
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j) Logging of operator comments, and of the use of 
facilities b), and i). 

k) Punching of log-start cards. 

RESTRICTIONS: 

Time, Core Requirements : 

No timing estimates can be given for a particular use 
of the inter- job supervisor, since this depends upon 
the operator and on the options which are used. In 
general, the time spent in the inter- job supervisor 
should not add more than .01 computer clock hours per 
average job. 

M0NITR is effectively a mainline program, using all 
of core storage during its operation. 

PROGRAM PROCEDURE: 

Set-Up ? Previous Processing: 

No specialized set-up or previous processing is nec- 
essary for use of the inter-job supervisor except: 
1) the Operating System pack must be resident on one 
of the 1311 disk drives whenever the inter-job super- 
visor is called or is in operation. 2) The job num- 
ber, man number, and function code associated with a 
job to be run must either have been entered into the 
system previously, or must be added before the job 
can be run. Output from M0NITR on the 1403 printer 
is such that any type of form can be used. 

The details of originally building a system are given 
in a separate document. 

Processing/M ethod : 

The inter- job supervisor is an extremely modular pro- 
gram, with various routines being utilized as needed 
due to operator entry or historical situation (e.g. a 
past information request or some past entry). The 
various routines are described separately in the par- 
agraph on Processing Method — Technical Description. 
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USAGE: 

So u r c e _of _I n^ut : 

Input to the inter- job supervisor consists of the log- 
start card, typewriter input commands, and system- 
requested typewriter input. Each of these sources is 
separately detailed below. 

Calling Sequence : 

The inter-job supervisor should be called on an end-of- 
iob condition by all 1401 programs written at UWM, by 
means of the EXIT macro (KF08A). The operator has two 
equivalent alternatives if an abnormal end-of-job 
occurs, preventing the EXIT In the program from being 
executed : 

a) if the job was run under the L0AD program, the 
operator can set 15870 as the I-address and press 
START. 

b) the operator can load a log-start card with the 
user Information columns blank. 

These possibilities are both equivalent to the execu- 
tion of an EXIT macro. The log-start card for the next 
job can be loaded, but this does not allow entry o£ 
the ending time of day and computer clock time. 

Cont rol Cards : 
Log-start Card: 

The version 1 log-start card operates correctly with 
the version 2 Operating System, in that a new-style 
card is punched and also executed in the machine. 

The format of the basic Version 2 log-start card is 
as follows: 

,047008 

N 

019798001 

,054062 

UF0037R 

,069076 

D046057 

B054 



Columns 


1- 


■7 


tt 


l 


] 


?! 


38- 


-46 


!! 


47- 


■53 


11 


54- 


-61 


1! 


62- 


-68 


?t 


69- 


-75 


tt 


76- 


-79 
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User-provided information is in the following format: 

Columns 12-16 Job number 

17-19 Man number 

20-21 Function code 

22-27 Program name 

28-36 Program common 

37 Drive code on which the Operating 
System Pack resides (0 or 2) 

All of the user-provided fields are optional except the 
program name and drive code. The job number is usually 
present. 

Typewriter Input : 

Typewriter Entry Codes : 

A typewriter entry code consists of a 2-character code 
which may or may not be followed by one or more oper- 
ands. Some codes have different meanings depending 
on what has been entered previously and some others 
have prerequisites without which they will not be 
honored, but most may be entered at any time and in 
any order. 

Some entry codes are commands in nature, others pro- 
vide information to the system. A few entries must be 
in a fixed format, but most can have spaces imbedded 
in the entry at the discretion of the operator. 

A complete list of entry codes follows: 

AF comman d (add function code) 

This command must be entered in a fixed format consis- 
ting of the letters AF, followed by a 2-digit function 
code, followed by a 13-character name corresponding to 
the code. The function code is added to the system 
file if it is not already present. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 
this command can be used. 
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A^command (add job number) 

This command must be entered in a fixed format consist- 
ing of the letters AJ, followed by a 5-digit job number, 
followed by a 13-character name corresponding to the 
number. The job number is added to the system file if 
it is not already present. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 

t'^lz- -r^rani, can be used. 

AM command (add man number) 

This command must be entered in one of two fixed for- 
mats consisting of the letters AM, followed by a man 
number, followed by a 13-character name corresponding 
to the number. The man number may be either 2 or 3 
digits in length. The man number is added to the 
system file if it is not already present. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 
this command can be used. 

C'C Entry (enter computer clock time) 

This entry provides the current machine clock reading 
to the system. The letters CC should be followed by: 

a) the four least-significant digits of the clock 
reading, or 

b) all six digits of the clock reading, or 

c) all six digits of the clock reading followed by a 
record mark. 

Format a) should suffice in most cases. Format b) must 
be used when a turnover occurs every 100 machine hours. 
Format c) must be used when a sequence error occurs. 
A sequence error occurs when an error was made in the 
previous machine clock reading entry, causing the pre- 
sent reading to be lower than the last, or when more 
than two hours of clock time have elapsed since the 
previous entry. 

The CC entry and the TM entry should be made immediately 
after an end-of-job so as to provide ending times for the 
job. If the entry is made after a job number or man num- 
ber is entered, as in loading a log-start card, the entry 
counts only as a beginning reading for the next job. 
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If this entry is not made before the initiation of a 
job with LS, D0, or loading of a job's log-start card, 
the computer clock time may be requested by the system. 

CM entry (enter operator comment) 

This entry causes an operator comment to be entered 
into the system log. Any string of characters can 
follow the letters CM. If the entry Is made before 
a job number or man number is entered for the next 
job, the line is considered a comment for the previous 
job; if not, the comment references the next job. 

DC command (execute disk-to-tape) 

This command causes the disk-to-tape utility DC0PY 
(ZD01A) to be executed for the disk pack on the ooposite 
drive from the Operating System pack (usually the' IBM 
system pack). The difference between this command and 
a D0 DC0PY is that the operator need not enter the job 
number, function, and program common when using DC. 

DF .command (delete function code) 

The letters DP are to be followed by a 2-digit function 
code. If the function code designated Is in the system 
file, it is deleted from the file. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 
this command can be used. 

DJ c ommand (delete job number) 

The letters DJ are to be followed by a 5-digit job 
number. If the job number designated is in the system 
file, it Is deleted from the file. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN ent les) before 
this command can be used. 

DM command (delete man number) 

The letters DM are to be followed by a 2- or 3-digit 
man number. If the man number designated is in the 
system file, it is deleted from the file. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 
this command can be used. 
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D0_command (initiate) 

The letters D0 are to be followed by a 1 to 6-character 
nrosrram name. This command enables the operator to 
inSatea ob completely from the console, without use 
of a log-start card. When all information required for 
the running of the job is entered into the system, the 
program designated is called. 

PC entry, (enter function code) 

The letters FC should be followed by a 2-digit function 
code If the entry is made before a job number or man 
number is entered for the next job, the function code 
is considered as a revised function for the previous 
job; otherwise the function code references the next 
job. 

If this entry is not made before the initiation of a 
iob with LS, D0, or loading a log-start card, the func- 
tion code may be requested by the system (see the para- 
graph on System-Requested Typewriter Input). A function 
code entered from the typewriter overrides a function 
code read from a log-start card. 



JB entry (enter job number) 

The letters JB should be followed by a 5-digit job 
number for the next job. Ordinarily the job number is 
taken from a log-start card, but a job number entered 
from the typewriter overrides a job number read from a 
log-start card. This entry should not be made before 
the TM and CC entries for the last job are entered. 

KL command (clear master lines) 

This command causes all "master lines" to be deleted 
from the system. (See ML command.) 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 
this command can be used. 

LG command (execute log-dump) 

This command causes the log-dump program DUMP (KE0 2A) 
to be executed. The log js then dumped onto cards, 
printed, and set to an empty condition. The differ- 
ence between this command and a D0 DUMP is that the 
operator need not enter the job number, function, and 
program common when using LG. 
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LL command (list log) 



This command is similar to LG above, but the log is 
only printed; it is neither dumped onto cards nor set 
to an empty condition. 

LS command (log-start search) 

This command causes cards to be read until a lo ^T^ a ^ 
card is encountered. The user-provided information on 
the card is then entered into the log. Information on 
the card is overridden by information already entered 
from the typewriter. When all information required 
for the running of the job is entered into the system, 
the designated program is called. 

This command should not be used until the TM and CC 
for the previous job have been entered. 

ML command (enter master line) 

This command causes a "master line" to be established 
in the system. The ML is to be followed by a string 
of characters which will be printed and/or typed at the 
beginning of each job. If the letters ML are followed 
directly "by the characters »or JT, the master line is 
both typed and printed; otherwise, the line is only 
printed. 

The purpose of "master lines" is to communicate infor- 
mation from the operations staff to users and/or per- 
sons operating the system during off-hours. A maximum 
of 12 master lines may be entered. These remain in 
the system until all are deleted by a KL command. 

Prerequisites: The time of day and a man number must 
be entered (by means of the TM and MN entries) before 
this command can be used. 

MN entry (enter man number) 

The letters MN should be followed by a 2- or 3-digit 
man number. A man number entered from the typewriter 
overrides a man number read from a log-start card. If 
an operator is logged in, a man number is not required 
to run a job, but~may be entered. This entry should 
not be made before the TM and CC entries for the last 
job are entered. 
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0C_command (Operating System disk-to-tape) 

TMt , command causes the disk-to-tape utility DC0PY 
UD01A) to be executed for the Operating System disk 
sack The difference between this command and a 
D0C0PY is that the operator need not enter the job 
number, function, and program common when using 0C. 

0i^°H^^- (log in °P erator) 

The letters 01 should be followed by a 2- or 3-digit 
man ^r. The purpose of the entry is to log an 
nnpT , atoT , i n bv number, until the end of his sniit oi 
duty thereafter during that shift, man numbers are 
not reauired. The operator is not logged in until he 
responds So a subsequent message as described below 
In the Paragraph on System-Requested Typewriter Input. 

00 command (log out operator) 

This command causes the logged-in operator, if any, to 
be logged out immediately. 

PC entry (enter program common) 

ThP letters PC are to be followed by a 1- to 9-character 
The letters - u ^ Tf ., field after PC is less 
Drogram common field, n tne nexu duci „ 1H 
than 9 characters in length, the right-end of the field 
is billed out with blanks. Blanks are not ignored in 
this entrv The program common field is generally 
taken ?rom'a log-sta?t card, but a program common field 
ent^f from thl typewriter overrides a program common 
field read from a log-start card. This entry is otten 
used in conjunction with the D0 command. 

PL command (execute program lister) 

This command causes the program lister PLIST (KC08A) 
to be executed to produce a list of programs In the 
Operating System Library. The difference between this 
command Ld a D0 PLIST Is that the operator need not 
enter the job number and function when using PL. 

PN com mand (execute file lister) 

This command causes the file lister LSN0 (KE04A) to be 
Ixecu^edL produce lists of job numbers, man numbers, 
and functions in the system file. The difference be- 
tween ?his command and D0 LSN0 is that the operator need 
not enter the job number and function when using PN. 
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PU comm and (punch log-start card) 

This command causes a Version 2 log-start card to be 
punched. If the job number, man number, program common, 
and/or function have been entered, they are punched in 
the corresponding columns of the card. The letters PU 
may be the complete entry or may be followed by a 
1- to 6-character program name. If a program name is 
part of the command, it is punched in the program name 
field; otherwise, the program name previously entered 
by a D0, an LS, or a loaded log-start card (if any) is 
punched in the card. 

T M entry (enter time of day) 

This entry provides the current time of day to the 
system. The letters TM should be followed by: 

a) the hour and minute on a 24-hour clock basis 
( 4 digits) , or 

b) the hour and minute, followed by the month and 
date (8 digits) , or 

c) the hour, minute, month, and date, followed by a 
record mark (9 characters), or 

d) the hour, minute, month, and date followed by the 
two digit year (10 digits), or 

e) the hour, minute, month, date, and year, followed 
by a record mark (11 characters). 

Format a) should suffice in most cases. Format b) must 
be used when a 24-hour clock turnover (i.e. midnight) 
has occurred since the last entry. Format c) must be 
used when a sequence error occurs. A sequence error 
occurs when an error was made in the previous time of 
day entry, causing the present reading to be lower 
than the last, or when more than 2*4 hours have elapsed 
since the previous entry. Formats d) and e) should 
only be necessary when a year change occurs. 

The TM entry and the CC entry should be made immediately 
after an end-of-job so as to provide ending times for 
the job. If the entry is made after a job number or 
man number is entered, the entry counts only as a 
beginning reading for the next job. 
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If this entry is not made before the initiation of a 
job with LS,' D0, or loading of a job's log-start card, 
the time of day may be requested by the system. 

WA_ command (list jobs) 

This command causes a list of jobs run thus far on the 
date of entry to be printed on the 1403. 

WJ com man d (list last job details) 

This command causes all known information about the 
last job to be printed. 

WT command (type last time) 

This command causes the last time entered into the 
system to be typed. It can be useful when a sequence 
error occurs. 



System-requested typewriter input: 

In certain conditions the Operating System will request, 
from the operator, various parameters necessary for some 
activity he has initiated (typically, running a job). 
Only information which has not been entered previously 
will be requested.. 

The requests which may be made by the system are: 

a) » TYPE J0B NUMBER 

b) » TYPE MAN NUMBER 

c) » TYPE TIME OF DAY 

d) » TYPE C0MPUTER CL0CK TIME 

e) » TYPE FUNCTION 

f ) » TYPE TIME 0UT . 

a) through e) may be typed after an LS or D0 command, 
or after "a log-start card is loaded. b) through d) may 
be typed after any of the commands DC, LG, LL, 0C, PL, 
and PN have been entered. f) can only occur after use 
of the 01 command. 

When any of these requests are typed, the operator still 
has all the freedom of action as before: that is, he 
can still enter any monitor entry code or command. How- 
ever, he has the further option of entering the infor- 
mation requested without any preceding 2-character code. 
If some other piece of information is entered by means 
of a monitor entry code following such a request, the 



OUTPUT 
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operator still has the option thereafter of entering 
the requested information without a preceding 2-character 
code. Certain commands, those mentioned above in this 
paragraph, can cause information to be discarded by 
the system and the request to be nullified. This is 
also caused by allowing the system to enter the "WAITING" 
state. However, in normal operation this is not expected 
to occur. 

The form of response to any of the above requests is 
similar to that of a monitor entry code in each case, 
except that the two-character code need not begin the 
response, as follows: 

The response to a) is similar in format and meaning to 

the JB entry. 
The response to b) is similar in format and meaning to 

the MN entry. 
The response to c) is similar in format and meaning to 

the TM entry. 
The response to d) is similar in format and meaning to 

the CC entry. 
The response to e) is similar in format and meaning to 

the FC entry. 
The response to f) is similar in format to the TM entry, 

but the time entered should be 

that of the end of the operator's 

shift of duty . 



The main output produced by the inter-job supervisor 
is the entries in the system log. The format and con- 
tent of these entries are described in a separate 
document. 

Other types of output produced by the inter-job super- 
visor are: 

a) information requests, covered In the previous 
paragraph. 

b) normal and error messages, covered below in the 
paragraph on Error Messages and Halts. 

c) punched log-start cards, the format of which is 
described above in the paragraph on the Log-Start 
card. 

d) the B0J and E0J pages, and similar output produced 
by the WA and WJ commands. 
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Output of' type d) contains all the Information known 
about a job at the time the output is printed. Such 
output is printed at every job initiation, and is 
printed at every job termination for which the operator 
enters the ending times. 



ERROR MESSAGES AND HALTS: 



Aside from: 

a) the system standard halts and messages (note that 
the "WAITING. . . " message has an expanded meaning) , 

b) special messages defined as 'master lines', 

c). system information requests (see System Requested 
Typewriter Input), 

the following halts and messages can occur: 

It » END-0F-J0R. 

This message indicates that a running program has 
executed an EXIT macro, or that a log-start card 
with the user information columns blank has been 
L0ADED. 

2 . */nT D0ES N0T C0MPUTE . 

This message indicates that the operator has enter- 
ed either a line beginning with alphabetic char- 
acters which are not a legal entry code, a line 
beginning with numerics when no system information 
request was in effect, an entry code with an operand 
for which one is not required, or an entry code with- 
out an operand for which an operand is required. 

3. » CARD JB xxxxx 

» CARD JB xxxxx 0VERRIDDEN 
» CARD MN xxx 
» CARD MN xxx 0VERRIDDEN 
» CARD PC xx 
» CARD PC xx 0VERRIDDEN 
» CARD PC xxxxxxxxx 
» CARD PC xxxxxxxxx 0VERRIDDEN 

Any of these messages can occur following the load- 
ing or reading of a log-start card. They indicate 
the information punched on the log-start card and 
its handling in comparison with previously entered 
information. 
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H, n/^L0G-START CARD HAS N0 PR0GRAM NAME. 

This message indicates that a log-start card read 
by means of an LS command did not contain a program 
name . 

5. n/nTn0NEXISTANT Jj0B NUMBER. 
VnT N0NEXISTANT MAN NUMBER. 
*JT N0NEXISTANT FUNCTION. 

These messages indicate that a number or code enter- 
ed into the system by means of a JB, D J , MN, DM, PC, 
or DF entry code, from a log-start card, or as a 
response to a system information request, does not 
exist in the system file. 

6. <s/\TwR0NG LENGTH. 

This message indicates that an entry code or a 
response to a system information request is of a 
length which does not correspond to the correct 
format for that type of entry or response. 

7. nW~IMPR0PER F0RMAT. 

This message indicates that an entry code or a 
response to a system information request is of a 
format (other than its length) which is not correct 
for that type of entry. (Example: alphabetic 
information when numeric is required.) 

8. */^IMP0SSIBLE TIME 

This message indicates that a time of day in an 
entry code or a response to a system information 
request is either in an incorrect format or con- 
tains a sub field having an impossible value. 
(Examples: month field over 12, minute field 
over 59. ) 

9. JT SEQUENCE ERR0R. 

This message indicates that an entered time is 
either lower than the previous time entered, or 
too far ahead of the previous time. 

10. *y7~N0T ALL0WED. 

This message indicates that the prerequisites for 
the previously entered command (typically man num- 
ber and time of day) have not been entered. 

11. ^ALREADY 0N. 

This message indicates that the number or code in 
an AJ, AM, or AF command is already present in the 
system file. 
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12. Stable full. 

This message should not occur, but if it does occur 
it will be in response to an A J , AM, or AP command 
when the system file is full. 



OPERATING PROCEDURES: 

Various operating procedural notes have been given in 
previous paragraphs. Considerable flexibility and 
operator preference capability are inherent in the de- 
sign of the inter-job supervisor. Thus only scattered 
recommendations can be made in the area of operating 
procedures: 

a) if a job comes to an abnormal end-of-job, or halts, 
the operator can return to the Operating System by 
using the core-dump deck, by setting 15870 into 
the I-register and pressing START (if the program 
had been run from an object deck by means of the 
L0AD program) , or by loading a log-start card with 
the user information columns blank. 

b) when the end-of-job message is typed, the operator 
should enter a TM entry and a CC entry within the 
timeout period, so as to produce the E0J page and 
provide finishing times for the job. 

c) if there are no jobs to be run after the completion 
of step b), the system should be allowed to assume 
the 'WAITING. . . T state. This insures the correct 
starting time of day for the eventual next job. 

d) operators should be aware that fields on a log-start 
card can be overridden from the console either be- 
fore or after the LS command. 

e) Dost-job function changes and comments should be 
entered before the CC and TM of step a), and must 
be entered before an MN or JB entry, a response 
to a system information request, or an LS command 
is done. 

f) operators should be aware that the "operator in" 
facility removes the necessity either for their 
man numbers to be punched on a log-start card, or 
for that card field to be blank. It Is perfectly 
acceptable, and probably desirable, for a job to 
be run under both a man number (that of a program- 
mer or user) and an operator number. 
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g) In the case of a sequence error In the time of day, 
the WT inquiry can be helpful. 

h) operators should be aware that there is no need 

for them to make up a log-start card the first time 
a job is run, and "that by entering a JB entry and 
possibly other information entries, and using the 
PU command, they can produce a log-start card for 
subsequent runs of the job. 

i) job numbers and man numbers should always be added 
with as complete and correct a name as can be con- 
tained in 13 characters. 

The operator should respond as follows to the halts and 
messages described in the paragraph on Error Messages 
and Halts . 

1) Type in the TM and CC entries as previously described, 

2) Re-enter the line correctly. 

3) Examine the message(s) for correctness. A system 
information request will be forthcoming. 

4) Type LS again and/or examine the card which was read. 

5) Either add the number to the system file, or enter 
a different, correct number by means of an entry 
code or a response to a system information request. 

6) Re-enter the line correctly. 

7) Re-enter the line correctly. 

8) Re-enter the line correctly. 

9) Reconsider the correctness of the entry and/or use 
an expanded format as described above in the para- 
graphs on Typewriter Entry Codes and System-Requested 
Typewriter Input. 

10) Enter the prerequisite information, and then re-issue 
the command. 

11) Reconsider the correctness of the entry and/or 
abandon the attempt. 

12) Abandon the attempt, or delete one or more entries 
from the system file. 
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} ±™kz 91- i 2*1 jl_Z 9^1zll2.1 e s s 1 n g : 

From the point of view of the inter-job supervisor, 
its "end-of-job" is usually the beginning of an actual 
job. The operator should refer to the set-up and 
operating instructions for the program in question. 

PROCESSING METHOD — TECHNICAL DESCRIPTION 

E n t ry_to_Inter-Job Supervisor 

If entry was due to a loaded log-start card, the card 
is moved into an input area within the program. The 
drive code of the Operating System is saved, and the 
"monitor communications sector" is read (ref: 0SINF 
macro, KF17A). The communications sector is initiali- 
zed so that the following Items of Information are 
marked "unknown" in the communications sector: 

a) the time of day 

b) the computer clock time 

c) the job number 

d) the man number 

e) the function code 

f) the program name field 

g) the program common field (set to blanks) 

If the entry was due to a loaded log-start card on which 
the program name field is not blank, control is trans- 
ferred to the log-start processing routine. Otherwise, 
the end-of-job message is typed, and control is trans- 
ferred to the wait/timeout routine. 



Wait /Time ou t ro utin e 

This routine waits for the REQUEST/ENTER button to be 
depressed by the operator. If the routine waits for 
the number of seconds dictated by operating procedure 
as the "timeout factor", the communications sector is 
initialized, and fields marked as "unknown" as in the 
previous paragraph (Entry to Inter-Job Supervisor) , 
with the exception that the computer clock time is not 
marked as unknown. The last information request (see 
System-Requested Typewriter Input), if any, is also 
cancelled. The systems standard message and halt for 
this situation then occurs, and should be started in 
the standard fashion. 
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If the operator does depress the R/E key within the 
time-out period, he can enter information at his own 
rate. However, operators should bear in mind that the 
computer clock runs when in this situation. When the 
operator depresses the RESP0ND/TYPE0UT key after typing, 
control is transferred to the entry/scan routine. 

This routine first transforms the operator input by 
eliminating blanks from the message in all except AF, 
AJ, AM, CM," ML, and PC entries. A length count for 
the operator input line is also constructed at this 
time. The first two non-blank characters of the line 
are then examined. If the first two characters are 
numeric, control is transferred to an appropriate 
routine if a previous information request (see System- 
Requested Typewriter Input) had occurred; if the first 
two characters are alphabetic, control is transferred 
to an appropriate routine If they represent a valid 
monitor entry code (see Typewriter Entry Codes); other- 
wise, a diagnostic is produced. 

On an LS command, cards are read until a log-start 
card is found. An old log-start card is executed 
when read, causing performance of the compatible log- 
start program (KC03A), and eventual return to M0NITR 
as a loaded log-start card. No check for last-card 
indicator is done on an LS command. 

When a new log-start card has been read, if the LS com- 
mand occurred after an Information request (see System- 
Requested Typewriter Input), items c) through g) as 
described above in the paragraph on Entry to Inter-Job 
Supervisor are marked as "unknown" in the communications 
sector. If a log-start card with a blank program name 
field is read by means of an LS , a diagnostic is pro- 
duced and further cards are read. 

On either a loaded log-start card or a card read by 
means of an LS, master lines (if any) are typed. The 
following then occurs for the job number, man number, 
function, and program common fields: 

a) if the field Is blank on the card, no processing 
is done for that Item. 
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b) if the field on the card is not blank and the field 
in the communications sector is marked "unknown", 

a message is typed and the information from the 
card moved to the sector. 

c) if the field on the card is not blank and the 
corresponding field in the communications sector 
contains information from a previous typewriter 
entry, the information on the card is overridden 
and a message to that effect is typed. 

The job number, man number, and function code fields 
are then checked for validity. A diagnostic is typed, 
and the field in the communications sector marked 
"unknown", for any item found invalid. If the program 
name is valid, control is then transferred to the 
request-information routine. 

This routine examines the communications sector and 
various switches for the presence of each of the fol- 
lowing, in turn: 

a) the job number 

b) the man number 

c) the time of day 

d) the computer clock time 

e) the function code 

The first one of these it finds to be "unknown" causes 
the appropriate information request to be typed,, and 
a switch to be set signifying that item to be "pending". 
Control is then returned to the wait/timeout routine. 
If all the above have been entered, control is trans- 
ferred to the perform- job routine. If the man number 
is "unknown" but an operator is on duty, the information 
request for the man number is not issued. 



Perform-Job Routine 

This routine performs the following functions in sequence 

a) makes a job entry in the system log, 

b) enters previously-made comments for this job into 
the system log, 

c) prints master lines (if any) on the 1*103, 

d) prints the B0J page on the 1403, 

e) and performs the program indicated by means of a 
LINK macro (KF14A) . 
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InforTnation_Entr l _Routlnes 

"^e of Day and Computer Clock Routines 

-, o QTO used on a numeric entry after 
Routines in this class are used on ^^ o 
. an information request, or^n a routines are simi- 
lar To^bei'ngVfVeTolIowIng Pattern: 

a) the length of the entry is checked and^^iagnostic 
produced if the lengt h ^^00^ ^ n 
of the proper f0 ™^s. *ro fleld are to 
determines what ^ ^he vlous entry. 

be assumed as contmuiub 

^ 1 a ^ c-pp if it is completely 

b) the field is checked to e^^ lg produced . 

numeric. If i^ 1S I1U - » 

* 4-v,^ ,-imP of day, subfields (month, 
C) WTetT) ^eTxamin^fofpiausibility, and a 
diagnoftxVmay be produced at this point. 

„,, „ n t- forced with a record mark, 

d ) if acceptance was not forced w^ ^ ^ 

IToutetZt A diagnostic may result if the vaJue 

is lower or is much higher. 

e) the value i-f-^^SSwiSf 10 "' ^ 

and the quantity is set ab 

f) lf the time was not know, ^0".^ th^.y.te™ 
h ne 1ther e a mln numbe fnor a Job number has^een^ 
pntered for the next job, the en u» 

an ending time for the previous job. 

... ~^ r\ 5it*p met. and the com- 

g) ^eJ^S^^r^enSTreS! th^nd-of-J-ob 
page is printed. 

~r t-hP comouter clock time, the "total-cc' 

h ) in the case of the computer numbe r, function code, 
fields of the job number, man lagt job 

a r e ircre m rtrd'by n th P e r °efapse n d a clocktime. 

i) ^ the case of the time of day if thesis ^ 

rdlnrtime^ornirshlk of duty the opera t or-in 

designation is removed with no notice gi 
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j) if the time entered had been "pending" from a 

previous information request, control Is transfer- 
red to the request-information routine. Otherwise, 
control is returned to the wait/timeout routine. 

Man Number, Job Number Routines 

Routines in this class are used on a numeric entry 
after an information request, or on a MN or JB entry 
code. The operation of the job and man routines are 
similar, both being of the following pattern: 

a) the length of the entry is checked, and a diagnos- 
tic produced if the entry is not in the proper format 

b) the entered number is moved to the communications 
sector. 

c) the system file is searched for the entered number. 
If the search does not produce a match, a diagnos- 
tic is produced and the field is marked as "unknown" 
in the communications sector. 

d) if the number entered had been "pending" from a pre- 
vious information request, control is transferred 

to the request-information routine. Otherwise, 
control is returned to the wait/timeout routine. 

Function Routines 

These routines are used on a numeric entry after an 
information request or on a- PC entry code. The oper- 
ation is of the following pattern: 

a) the length of the entry is checked. If it is not 
of the correct format, a diagnostic is produced. 

b) the system file is searched for the entered function 
code. If the search does not produce a match, a 
diagnostic is produced and the field marked as 
"unknown" in the communications sector. 

c) if either a man number or a job number for the next 
job has been entered, the entered function code is 
moved to the communications sector and the field 
marked as "known". Otherwise, the entered function 
code is moved into the log entry for the last job 
as a correction. 
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d) if the function code entered had been "pending" 
from a previous information request, control is 
transferred to the request-information routine. 
Otherwise, control is returned to the wait/timeout 
routine. 

Comment Routine 

This routine is used on a CM entry code. If a job num- 
ber or man number for the next job has been entered, 
the line is transferred to a buffer file for later 
recording in the system log by the perform-job routine. 
Otherwise, the line is recorded directly in the system 
log as a comment for the last job. 

Program Common Routine 

This routine is used on a PC entry code. A diagnostic 
is produced if the length of the field after the letters 
PC exceeds 9. Otherwise, the entered information is 
moved to the program common field in the communications 
sector, left justified, with right-end blanks supplied 
if necessary. 

Command Routines 

Program Name Routine 

This routine is used on a D0 command. The length of 
the entry is checked: a diagnostic is produced if 
more than 6 characters follow the letters D0; if not, 
the program name is checked for validity (presence in 
the Operating System Library), and a diagnostic is 
produced if a match is not found. Master lines (if 
any) are typed at this point. If the D0 command 
occurred after an information request (see System- 
Requested Typewriter Input), items c) through g) , as 
described in the paragraph on Entry to the Inter-Job 
Supervisor, are marked as "unknown" in the communica- 
tions sector. The program name entered is moved to 
the communications sector, and control is transferred 
to the request-information routine. 

"System Support Program" Call Routines 

Routines in this class are used on a PN, LL, 0C, DC, 
LG, PL, or PS command. These commands are similar in 
intent to the D0 command, but are easier for the oper- 
ator to use. On any of these, a "system job number" 
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and a "system function code" are moved to the communi- 
cations sector, and the fields marked as "known", unless 
a job number and/or function code was already entered. 
The program name and program common fields. are then 
set up in the communications sector, as follows: 



COMMAND 


PROGRAM 


NAME 


PROGRAM COMMON 


PN 


LSN0 




None 


LL 


DUMP 




Blank 


LG 


DUMP 




D 


0C 


DC0PY 




Operating system drive code 


DC 


DC0PY 




Opposite drive code from 
Operating System 


PL 


PLIST 




Blank 



Control is then transferred to the request-information 
routine. 

Operator In/Out Routines 

This class of routines is used on a 01 or 00 command. 
On an 01, the length of the entry is checked, and a 
diagnostic is produced if the information entered 
is not in the proper format. The 2- or 3-digit man 
number is then moved to a temporary location"and check- 
ed for validity. A diagnostic may occur at this point. 
If not, a system information request is issued, a 
switch is set indicating the "time out" to be "pending", 
and control is returned to the wait/timeout routine. 

When the "time out" is entered, control is transferred 
to the time-of-day routine, which checks the time enter- 
ed as previously described. That routine then transfers 
control to the second part of the operator-in routine, 
if the time is accepted. The "operator-in" indication 
for the system is then set. 

On an 00, the "operator out" indication for the system 
is simply set, with no other investigation or processing 

^^l_^§IlZ!l£k-£ED.£ti£Il_^litines 

Routines of this class are used on an AF, A J , or AM 
command. Operation of any of these commands proceeds 
as follows: 

a) if the man number or the time of day is marked 

"unknown" in the communications sector, a diagnos- 
tic 3s Issued. 
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the length of the entry is checked, and a dia^nos 
tic is produced if the entry is shorter than ?h 
minimum length of the proper forma? thG 

C) entered te lH lle i S searched for the number or code 
(d n up e ncateTis xounT" iS Pr ° dU ° ed lf a match 

is produced. ° tj a dia gnostic 

sys^eTfiLf^ aSS ° Ciated na«e are inserted in the 

n a log entry for the file addition is made. 

g) control is returned to the wait/timeout routine. 

3£l^e_^n-Jo^^uj2cjtion_^utines 

Routines of this class are used on a DP ni 
command. Operation of 3 nv r>r ?* ' DJ ' or DM 
as follows: y ° f these co ™ands proceeds 

a) if the man number or the* t-i mQ ~*» ^ 

"unknnwn" -? M ^ ime of da ^ is marked 

tlc k ri SS ue n d? he " ca «°- sector, a diagnos- 

mum length of the proper format ^ ^ ^ mlnl ~ 
C) entered? 6 " 1 ^ '* ^^ ^ ^ ™<*er or code 

^ en?erfd° S ^n J" produced " the number or code 
entered is not completely numeric. 

e) the number and its a=:on^i^(-„^ 

the last entry in th* file? * ^ replaCed by 

f) the end-of-file Indicator is moved up one record. 

g) control is returned to the wait/timeout routine. 
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Punch Log-Start Card Routine 

This routine is used on a PU command. A basic log-start 
card is augmented by the fields in the communications 
sector which have been previously entered and are 
"known". If a program name follows the letters PU, it 
is moved to the program-name field in the card; other- 
wise, the program-name field in the communications 
sector (possibly blank) is moved to the card. The 
log-start card is then punched into stacker 4. An 
extra blank card is punched, to clear the punch, into 
stacker N/P. Control is returned to the wait/timeout 
routine. 

Master-Line Routines 

These routines are used on ML and KL commands. On an 
ML, the length of the entry is checked for being 4 or 
greater, and a diagnostic can be produced at this 
point. If the man number or the time of day is marked 
"unknown" in the communications sector, a diagnostic 
is Issued. Otherwise, the line entered is added at 
the end of the master line file, and the "number of 
master lines" count is incremented by one. A log 
entry for the file addition is made, and control is 
returned to the wait/timeout routine. 

On a KL, if the man number or the time of day is mark- 
ed "unknown" in the communications sector, a diagnostic 
is issued. If the "number of master lines" count is 
not zero, it is set to zero and a log entry is made. 
Control is then returned to the wait/timeout routine. 



Inquiry Ro uti nes 

What-Time Routine 

This routine is used on a WT inquiry. The last time 
entered is edited and typed out. 

What- Job Routine 

This routine is used on a WJ inquiry. A page similar 
to the B0J and E0J pages is printed on the 1*103, con- 
taining all known information on the last job. 
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What-Activity Routine 

This routine is used on a WA inquiry. An entry simi- 
lar to the B0J and E0J pages is printed on the 1403 
for each job run previously on the day the inquiry is 
entered, containing all known information about each 
job. 
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PROGRAM: DUMP/HELP 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operati]/j System II 

PROGRAMMER: Systems Divi/lon 

DATE COMPLETED: July 1, 1968/ 



PURPOSE: 



The programs DUMP (KE02A) ai/l HELP (KE03A) are log- 
dump routines. They product a narrative log listing 
and punch the 1401 log into/cards. DUMP is the normal 
log-dump routine. HELP is (he emergency log-dump 
routine, performing this fulction without the aid of 
the Operating System. ' 



RESTRICTIONS: 



Time, Core Requirements : 

Execution time for DUMP/HEI/? will normally be less than 
5 minutes, but may vary corjoiderably depending on the 
number of entries in the lcjs. 

/ 
DUMP/HELP is a mainline program, effectively using all 
of core during execution. ' 



PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

There should be 14 x 11 inch paper mounted on the 1403 
printer. The Operating System pack must be mounted 
on one of the 1311 disk drives. 

Processing/Method : 

The log entries are checked to determine what type of 
Information they contain. When the ending time (real) 
is missing from the type 1 entry (see below, Punched 
Output), a scan is made to determine the next time of 
day. The management and operator performance logs are 
then created and punched when the next time has been 
determined. 
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When the end-of-fijle condition occurs, the communications 
sectors are updatejd, the end-of-file is reset, and con- 
trol is transferred to the inter- job supervisor. 

USAGE: 

Calling Sequence : 

General Usage (DUMP): 

DUMP is normally called by means of the inter-job entry 
codes LD and LL, but may be called by a log-start card 
or by execution of a LINK macro from an AUT0C0DER or 
C0B0L program. 

Emergency Log-Dump (HELP) : 

HELP is executed by clearing the reader, placing the 
HELP object deck in the reader, and pressing Load. 

Program Common Fiel d : 

The contents of the program common field used to call 
DUMP determine whether the machine log is to be punched 
and listed, or just listed. When the letter "D" is 
present, left justified, in the program common field, 
the log is punched into cards. 

C ontrol Cards : 

DUMP/HELP requires no control cards. 

Input : 

The only input consists of the log information stored 
on the Operating System disk pack. 

OUTPUT : 



Printed Output : 

A narrative log Is printed containing the following 
Information: 

a) all the information contained on the E.O.J, 
page. 

b) program library operations controlled by DUP 
or DL0AD. 
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c) system support functions caused by use of the 
inter- job j entry codes LG, ML, or KL. 

d) file changes such as addition or deletion of 
job numbers, man numbers, and function codes. 






Punched Output : 



Three types of log )are punched by DUMP/HELP. They are 
the complete log, line operator's performance log, and 
the computer management log. 

The complete log is subdivided into five different 
types of intormation: 

a) The job initialization and ending times, both 
real and computer. The job number, the 
function code, program name, man number, oper- 
ator number, program common, and the run count 
are included in the type 1 log card. 

b) The information created by use of the CM code, 
comment entry, man name, and man number are 
included in the type 2 log. 

c) The system support log, type 3, contains the 
program name, starting time, man number, and 
man name . 

d) The log entry file change log, type 4, contains 
the name of the file changed, if it was an 
addition or deletion, and the man number and 
man name of the person responsible. 

e) The program update log entry, type 9, contains 
the operation name, program name 1, program 
name 2, or tape name, sector address, number 
of sectors, starting time (real), man name, 
and man number. 

The operator performance log contains statistics that 
pertain to the function of the machine operation and 
utilization of the machine. 

The management log contains information that pertains 
to the job initiation and ending times. 

NOTE: Type n refers to the number appearing in column 1 
of the punched card. 



ERROR MESSAGES AND HALTS: 



Aside from the standard system halts and messages which 
may occur during execution of DUMP, no halts or messages 
should occur. 
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OPERATING PROCEDURES: 

No special operating procedures need be specified. 
End-Of-Job, Post-Processing : 

DUMP returns to the inter-job supervisor. When the 
punch option is specified, the operator will find 3 
stackers containing the log. The operator performance 
log should be forwarded to the 1401 operations manager; 
the complete log should be forwarded to the computer 
systems group; the management log should be forwarded 
to the business manager. 



1401 0. S. II 

I. D. # KE04A 



PROGRAM: LSN0 

MACHINE: IBM 1^01 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



LSN0, when executed, sorts and lists the man-job- 
function number file In usage order. The man- job- 
function numbers are then subdivided and listed In 
numerical order. 



RESTRICTIONS: 



Time, Core Requirements : 

Processing time varies as the square of the number of 
entries in the man- job-function file. The average run 
is about 5 minutes. 

LSN0 is a mainline program effectively using all of core 
during its execution. 



PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

Paper at least 14 inches wide must be used in the 1403 
printer. The Operating System pack must be mounted on 
one of the disk drives. 

Processing/Method : 

The man- job-function number file is sorted in place, 
and then listed in order of the number of runs. During 
the listing process, a sort of binary tags is performed 
The file is then listed using the tags correspondence 
to the new sorted file. 
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USAGE 



Calling Sequenc e : 

LSN0 Is normally called by use of the Inter-job entry 
code PN, but may be called by a log-start card, or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 

Control Cards : 

LSN0 requires no control cards. 

Input : 

Input consists of the man-job-function file, read from 
disk. 

OUTPUT: 



LSN0 lists the man-job-function numbers In numerical 
order, subdivided into the three classes. The follow- 
ing statistics are printed with each entry: 

a) date entered. 

b) last date used. 

c) number of runs. 

d) total number of computer clock hours used. 

e ) name . 



ERROR MESSAGES AND HALTS: 



Aside from the standard system halts and message, no 
halts or messages should occur during execution of 
LSN0. 



OPERATING PROCEDURES: 

No special operating procedures are required. 

End-Of-Job , Post-Processing : 

LSN0 returns control to the inter-job supervisor on 
completion of the listing. 
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TITLE L0AD 

MACHINE: IBM lMOl 

LANGUAGE: Autocoder 

SUPERVISOR PROGRAM: none 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE : 



L0AD simulates the function of the 1402 L0AD button, 
transferring control to a card object program. Further- 
more, L0AD provides the object program with the I0CS 
date, a program common field, and an EXIT macro in 
high-core. 



RESTRICTIONS: 

Time/Core Requirements : 

Execution time for L0AD itself is less than one second. 
L0AD is a mainline program, effectively using all of 
core during its brief execution. As noted below, L0AD 
leaves locations 82-86 and 15861-15998 occupied when 
it transfers control to the object program. 

PROGRAM PROCEDURE: 

Set-Up, Previous Processing : 

Set-up is as required by the object program to be loaded 

Processing/Method : 

Cards are read in succession until one with a comma in 
column 1 is found. If that first card is a "CI" card, 
it and the following card are passed. Core is then 
cleared except for the following: 

a) locations 82-86 contain the I0CS date, with a word- 
mark at 82. 

b) locations 15861-15869 contain the program common 
field, with a wordmark in 15861. 
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c) locations 15870-15998 contain an EXIT macro 

The card is then branched to at location 1. (A 
wordmark has been set in 1 previously.) 



USAGE: 



Calling Sequence : 

L0AD is generally called by a log-start card. It may 
also be called by a LINK macro from an AUT0C0DER or 
C0B0L program, or by means of the inter-job entry 
code D0. 

Control Cards : 

L0AD requires no control cards. 

Input : 

The only input consists of the object program to be 
loaded. 

OUTPUT: 

L0AD produces no output. 

ERROR MESSAGES and HALTS: 



Except for the system standard disk halts and messages, 
no halts or messages should occur. 



OPERATING PROCEDURES: 



Operating procedures are as required by the program to 
be loaded. 

End-of-Job 3 Post-Processing : 

End-of-job and post-processing requirements are as 
needed by the object program to be loaded. 
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PROGRAM: PLIST 

MACHINE: IBM 1401 

LANGUAGE: Autocoder 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE : 



PLIST produces a list, on the 1403 printer, of all pro- 
grams and files resident under the Operating System. 
This list includes all known information about each 
program. 



RESTRICTIONS: 



Time, Core Req u irements : 



Execution time for PLIST varies according to the number 
of programs loaded under the Operating System. PLIST 
Is a mainline program, effectively using all of core 
during its execution. 



PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

No previous processing is necessary for use of PLIST. 
The listing produced Is 132 positions In width, and 
thus 14 inch wide paper should be used in the 1403 
printer. 

Processing/Method : 

The program table is read, and lines are printed in the 
order in which program-names are encountered in the 
table (descending order of sector address). For pro- 
gram entries, the header and trailer sectors are read, 
and checked for validity, providing the information 
for the printed line. 
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USAGE: 

Calling Sequence: 

PLIST is usually called by a log-start card, but may 
be called by a LINK macro from an AUT0C0DER or C0B0L 
program, by use of the inter-job entry codes PL or D0, 
or by a failure to locate the specified program name 
in a FETCH or LINK macro. If a program name is in- 
cluded (right-justified) in the program common field, 
PLIST will link to that program after its execution. 

Control Cards : 

PLIST requires no control card. 
Input : 

PLIST uses no input. 

OUTPUT: 



A list is produced of all programs on the Operating 
System file, with all information known about each pro- 
gram. This information includes the program parameters 
created at DL0AD time, and the usage parameters accumu- 
lated since. Notations are included in the right edge 
of the listing, giving characteristics or error messages 
for certain programs. 



ERROR MESSAGES and HALTS: 

Notations in Output : 

The following messages may appear at the right end of 
a printed line: 

NO GMWM indicates that group-mark word-marks are not 
restored when the program is loaded. 

FIXED LOC indicates that the program is stored at a 
fixed "system disk" address and will not 
be moved. 

TTFD XXXXXX indicates that the block is a Tabtran file 
description, with Tabtran file-name XXXXXX. 
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HEADERLESS indicates that the block is in load mode 
but has no program header, loader, or 
trailer. (viz. compatible DL0AD, EXIT, 
and log-start programs). 

MOVE MODE indicates that the block is a move mode 
file (viz, the system log). 

BAD FORMAT indicates that the program's header, loader, 
and/or trailer have been damaged. This is 
a serious error condition and should be 
reported to a member of the Computer Systems 
Group. 

BAD ENTRY indicates that the program table itself is 
damaged. This is a serious error condition 
and should be reported to a member of the 
Computer Systems Group. 

Other Halts and Messages : 

Aside from the system standard disk halts and messages, 
no other halts or messages should occur. 



OPERATING PROCEDURES : 



No further operating procedures need be given: PLIST 
uses no sense switches, tapes, or other special 
configuration. 

End-of-Job, Post-Processing : 

PLIST either performs a link to the program named in 
the program common field (right justified), or performs 
an EXIT at end-of-job. 
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PROGRAM: DUP 

MACHINE: IBM 1^01 

LANGUAGE: Autocoder 

SUPERVISOR PROGRAM: none 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 196 8 



PURPOSE: 



DUP, the 1401 Operating System disk utility program, 
provides various services associated with maintenance 
of the Operating System program library. These include 

Deletion of programs 

Renaming of programs 

Copying of programs to magnetic tape 

Loading of programs from magnetic tape 

Printing of programs 

Modification of object programs via "patch 

cards" 
Punching of object decks of programs 

Other facilities involving the program library are: 
Original loading of programs by means of "psuedo- 
execution", provided by the DL0DR program (KC06A) ; 
listing of names and specifications of programs oro- 
vided by the PLIST program (KC08A). 

The details of the operation of particular services 
are described in separate following sections. This 
section deals with the control cards and structure of 
DUP. 



RESTRICTIONS 



Time, Core Requirements: 



Timing estimates for performance of various services 
are detailed in the following sections. The time re- 
quired for DUP itself to read and analyze the control 
cards is negligible, except in the case of typewriter 
input. DUP itself occupies the area from location 335 
to approximately location 7000. The suborograrns DUPA, 
DUPB, DUPC, DUPD, and DUPE utilize the area from 7000 
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to approximately 11300. Locations 11300 to 15900 are 
,,sed as work areas. DUP is thus largely a mainline 
nro^ram occupying most of core during its execution. 
HcSr', location! 15901 to 15999 are never disturbed 
bv execution of DUP or the subprograms. Thus they may 
be' used, by programs calling DUP with disk input and 
re-calling, as a communications area. 



PROGRAM PROCEDURE: 

s e t -u£ i _P r e vi o us _P ro c e s^i ng : 

In the case of *C0PY and *L0AD process! ng, magnetic 
tapes must be mounted. Paper at least 8 1/2 inches 
wide is reouired on the 1403 printer for all process- 
ing! and, in the case of "DUMP and "PATCH processing, 
14' inch wide paper is required. 

For all except *L0AD processing, the program(s) to be 
manlnulated must have been loaded onto the program 
library previously. In the case of *L0AD processing 
the program(s) must have been copied to tape previously 



P roc e s s i ng/Me t h o d : 

The method used to read and accumulate a control record 
is largely defined in the following section (UoAGfcK 
Once a complete control record is accessed, its first 
non-blank characters are examined to determine the 
?ype of service request being made. When this isdeter- 
miSedfone of the subprograms DUPA DUPB, DUPC DUPD, or 
DUPE is FETCHed into upper core, and a branch to tue 
annrooriate entry point made. The subprogram examines 
III Remainder o/ the control record, issues diagnostics 
and/or performs the services indicated, and returns to 
DUP at the completion of its processing. The suo- 
program may use data areas and subroutines in DUi . 



A table of the subprograms used to perform various 
services follows: 

Service Subprogram 

*C0PY DUPA 

*L0AD DUPB, possibly DUPC 

*DELETE DUPC 

*RENAME DUPC 

*DUMP DUPD 

*PUNCII DUPD 

*PATCH DUPE, DUPD 
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USAGE 



C al 1 iji£_S eauen ce : 



DUP is usually called by a log-start card, but may be 
called by a LINK macro from an AUT0C0DER or C0B0L pro- 
gram, or by use of the inter-job entry code D0. The 
subprograms DUPA, DUPB, DUPC, DUPD, and DUPE should not 
be called directly under any circumstances. 



Program Common: 



The content of the program common field used to call 
DUP to a large extent determines Its operation. Con- 
sider the positions in the field to be numbered 1-9, 
from left to right: 

a) If position 1 contains a "-", the operation of DUP 
consists of deleting the program whose name is to 
be found in positions 2-7. No Input Is required; 
control is returned to the inter-job supervisor 
following the deletion. 

b) If position 1 contains a "T", control record Input 
is taken from the console typewriter. 

c) If position 1 contains a "D" , control record Input 
is taken from the "auxiliary Operating System 
communications sectors", on the 1311 disk drive. 

d) If position 1 contains a blank or any other code, 
control record Input is taken from the card reader. 

e) In cases b), c), and d), if there is a program name 
to be found in positions 4-9, DUP links to that 
program at the conclusion of Its operation. 



Contro l C ards: 
Source of Input: 

Input to DUP, except in the case of *PATCH processing, 
consists entirely of control records. Programs on disk 
or tape are read and handled in various ways as described 
in following sections, but for the purpose of this sectlc 
the term "input" will refer to information found In the 
file determined by position 1 of the program common field 
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Control Card Structure: 
Card/Disk Input: 

vnth Mr-d im>ut, all 80 columns of a card are used. 
W th disk Input; sectors 399622 through 399 39 can 
contain control cards. The sectors are in the move 
mode- only the first 80 positions of each sector are 
used! With either card or disk input, except in the 
case of *PATCH processing, a "control record" may con- 
sist of one to six cards or card images. The end ° 
one control record is determined by any of the following. 

a) End-of-file indication (last card indicator for 
card input, advancing to sector 399640 for disk 
input) . 

b) A card whose first character is a comma, ^indicat- 
ing that an object deck or log-start card follows 
(the previously read card completes the control 
record) . 

c) A card whose first non-blank character is an 
asterisk (the previously read card completes the 
control record) . 

d) A card containing a period followed by a blank, 
anywhere (that card completes the control recora). 

With card or disk input, an entire control record is^ 
accumulated and is terminated, according to the above 
rules, before any consideration is given to the syntax 
or meaning of the card, and before performance of trie 
indicated services is initiated. 

Typewriter Input: 

With typewriter input, an entered line may be up to 80 
characters in length. A single entered line always 
constitutes a complete control record. The system stand- 
ard entry conventions are followed. The performance 
of the services indicated on each line is mitiatea 
immediately after the line is entered. On completion 
' of'these services, DUP again waits for the next control 
record to be entered, unless the line which initiated 
the services contained (ended with) a period followed 
bv a soace. End-of-job is indicated by a typewriter 
end-of-file: that Is, use of the RESP0ND/TYPE0UT key 
immediately following use of the PEQUEST/EWTER key. 
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Content and Format of Control Records: 



One rule about DUP control records has been implied in 
previous paragraphs: any control record which ends in 
a period followed by a space forces DUP to go to end- 
of-job immediately following performance of the ser- 
vices indicated on the control record. Other than this 
the meaning of a DUP control record is exactly the same 
whether it ends with a period or not. 

A program name in the 1*101 Operating System may 
consist of 1 to 6 of the legal 1401 characters > with 
the exceptions: 

a) a name may not contain a record mark 

b) a name may not contain a comma 

c) a name may not contain a blank 

d) a name may not end with a period 

e) a name may not begin with an asterisk. 

The format of DUP control records is free: a control 
record may begin in any column; as many blanks as de- 
sired (or none) may be inserted between any -two entities 
on a control record; a control record may occupy more 
than one card or card image v However, 

a) spaces are required in the syntax in several cases. 

b) the start of a control record must be the first 
character on a card or card image (the asterisk 
beginning it must be on the first non-blank 
character). 

c) if "continuation cards" are used to form a complete 
control record, column 1 of each succeeding card 

is considered to directly follow column 80 of the 
preceding card.. 

Control Record Syntax: 



The syntax for < DUP control record > is as follows: 

< DUP control record > ::= < basic control card > / 

< basic control card >.< space > 

< basic control card > ::= < delete card > / < rename card > 

/< copy card > / < load carr > 

/ < dump card > / ■ < punch c-rd 
/ < patch card > 



<delete card> : : 

<rename card> : : 

<copy card> : : 

<load card> : : 

<dump card> : : 

<punch card> : 

<patch card> : 

<program list> : 

<tape name> : 

<rename list> : 

<rename part> : 
Control Card Examples: 



♦DELETE 
/ ♦DELET 
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<space> <program list> 
<program list> 



♦RENAME <rename list> 

♦C0PY <program list> T0 <tape name> 
/ ♦C0FY <program list> T0 <tape name> 
WITH <tape name> 

♦L0AD <program 3ist> FR0M <tape name> 

♦DUMP <program list> 

♦PUNCH <program list> 

♦PATCH <program name> 

<program name> 
/ <program list>, <program name) 

<program name> 

<rename part> 
/ <rename list>, <rename part> 

<program name> <space> 

T0 <space> <program name> 

/ <program name> space <program name> 



♦DELETE ~ PR0GA, PR0GB 

*DELETGRADIT 

♦RENAME B0Y T0 MAN, PR0G14 T0 PR0G15, GRADIT T0 GRADE 

♦RENAME B0Y MAN, PR0G14 PR0G15 

♦C0FY M0NITR, DL0DR, PLIST, SYSCL T0 SYSTAP 

♦C0PY LIBSER, LSUPDT T0 JUN15 WITH JUN01 

♦L0AD PLIST FR0M SYSTAP 

♦DUMP M0NITR, DL0t>R, $FILE, TTF.05 

♦PUNCH MYPR0G 

♦PUNCH PLIST, SYSCL 

♦PATCH M0NITR 

♦PATCH SYSCL 

♦PATCH LIBSER 



OUTPUT: 



The reports produced by DUP vary according to the ser- 
vice (s) requested on the control record.- Output assoc 
iated with each service is detailed In the following 
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sections. However, it is important to note at this 

point that: 

a) each complete control record Is printed beginning 

at the top of a page. reouested 

un thf > renort associated with the first requeoitu 
} service begins immediately below the last line 
of the complete control record, 
c) Reports associated with subsequent services 
C) guested by the same control ;recordeacn begin 
at the top of a page, except in- the case of 
*C0PY or *L0AD processing. , unless 

each complete control record is also typed unless 
input is from the typewriter. 



d) 



ERROR MESSAGES AND HALTS: 

Aside from the standard system halts and messages, 
the following halts and messages can occur in any 
usage of DUP: 

0. ^ xxxxxx N0T 0N DISK. Rofprpn . p has 
No halt accompanies this message. n ^rer^e h* b 
been made to a program not in the Operating System 
library. 

1. nW" UNKN0WN C0NTR0L CARD. <nHir-tes 
No halt accompanies this message. It indicates 
that a control record did not start with one oi 
the key words defined in the syntax. The message 
is both typed and printed. 

2 JT~ SYNTAX ERR0R IN C0NTR0L CARD. H ,^ tps 
* No halt accompanies this message. It indicates 
that a control record did not conform to the form 
defined in. the syntax. The message is both typea 
and printed. 

o JT PR0QRAM xxxxxx IS DAMAGED. 

Hard halt No. H05 accompanies this message It 
indicates that the header, loader, and/or trailer 
do nofcontain the proper identifying information, 
The message is both typed and printed. 

JT M0RE THAN 6 CARDS IN A DUP C0NTR0L REC0RD. 
No halt accompanies this message. It .^ d ; c ^^ 
that 7 consecutive cards were read which appear 
to be part of the same control record see the 
previous section on the structure of control 
records). The message is both typed and printed. 



k. 
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Halts and messages peculiar to particular services are 
documented in the following sections. 



OPERATING PROCEDURES : 

DUP is designed to operate as automatically as possible, 
with a minimum of operator intervention and no operator 
decisions. Aside from job set-up as specified in a 
previous paragraph, and action on errors which Indicate 
a failure in the operating system, no special operating 
procedures need be specified. 

Should message 3 occur in any operation of DUP, core 
and disk dumps should be taken, and a member of the 
Computer Systems group notified, as in the case of 
standard system halts and messages. 

Messages 0, 1, 2 and 4 are the concern of the user. 

En d-Of-Job, Post-Processing : 

DUP may either perform an EXIT, returning 'to the 
inter-job supervisor, or LINK to some other program 
at the completion of its processing. The manner in 
which this choice Is made is described in the Usage 
paragraph under Program Common. 
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*DEL ETE 
PURPOSE: 



The program deletion service of DUP provides a means 
of removing nrogram blocks from the 1401 Operating 
System Library. This may be preparatory to reloading, 
or because the programs are in error, or no longer 
useful. 



RESTRICTIONS: 

As noted below (see Processing/Method), certain types 
of program blocks cannot be deleted. 

If any part or phase of DUP, namely program blocks DUP, 
DUPA, DUPB, DUPC, DUPD, or DUPE, is to be deleted, all 
phases must be deleted. DUPC should be the last pro- 
gram block named, and the control record should end in 
a period followed by a space. 

Time/Core Requirements : 

The time required to delete one program varies from 
two to ten seconds, depending on its length and Its 
neighboring programs. 

Core requirement is as described for DUP (General). 

PROGRAM PROCEDURE: 

§.iiz!lEjL_P£^Y.t^s_P?19.2.?.ssing: 

Set-up is as required for DUP (General). 
P roc e s s i n g/ Method : 

The following describes the deletion of one program: 

The program table .Is searched for the program name. 

If the program is not present, a diagnostic Is produced 

If the program Is present, but is 

a) a move-mode file, 

b) a headerless load-mode block, 

or c) a fixed-location (system disk) program, 

a diagnostic is produced. If the program block Is not 



_1 ^ 1 ... 4. J 
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If 



The header and trailer of the program are checked. 
eittie? is in error, a diagnostic is produced and the 
system comes to a hard halt. Otherwise, 

a) the program table entry is removed. 

b If there are floating-location program blocks 

above the deleted block on the cylinder, they 
are moved down. . 

c) an amount of disk equal to tne size of the 
program is cleared. 

d) a lop* entry is made. 

e the verification message is typed and printed 

f) the parameter and usage reports are printed. 

g) the service is completed. 



USAGE: 



Callin£_Seg^uence: 

"The program deletion service of DUP may be called by 
a control record beginning with *DELE±E or ■DLLai, dj 
a call to DUP with position 1 of the program co«o 
flPld containing a minus sign, or by the *L0AD option. 
It can be called implicitly by the DL.0DR program (KC06A) 
with disk input. 

ControI_Carls : 

which initiates 



The *DELETE or *DELET' control record, which initiates 
this service, is described in the Control Record Synt 
section of DUP (General). No other control cards are 
required. 



ax 



Input : 



•DELETE reauires no input. 



OUTPUT: 



The output which ^normally results from the deletion of 
one program consists of: 

a) a message, both typed and printed, verifying 
the deletion. 

b) a report on the program parameters from the 
DL0AD process for the program. 

c) a report on the usage statistics of the prograrr 
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ERROR MESSAGES and HALTS: 



In addition to the standard system halts and messages, and 
those messages described in the section on DUP (General), 
the following messages may occur on the typewriter and 
printer: 

5. » DK DELETED xxxxxx sssss nnn 

This is the normal verification message, where xxxxxx 
Is the program name, sssss is the sector address 
its header had occupied, and nnn is the number of 
sectors it had occupied. 

6. n/7" xxxxxx CANN0T BE DELETED 

This indicates that the program block is either a 
file, or at a fixed location, and therefore cannot 
be deleted. 



OPERATING PROCEDURES: 



Operation during a program deletion should be completely 
automatic. Both the messages in the above paragraph 
are the concern of the user. Attention should also be 
given the operating procedures described in DUP (General) 

End-Of-J ob, Po st-Pr oce ssing: 

After each requested deletion has been attempted, con- 
trol is returned to mainline DUP. See the End-Of-Job , 
Post-Processing paragraph of DUP (General). 
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*RENAME 



PURPOSE 



The program renaming service of DUP provides a means of 
changing the names of program blocks stored in the 1*101 
Operating System Library, This may be done to avoid 
name conflicts in the system. 



RESTRICTIONS: 

As noted below (Processing/Method), certain types of 
programs cannot be renamed. 

Time/Core Requirements : 

The time required to rename a program is less than two 
seconds. Core requirements are as described for DUP 
(General) . 



PROGRAM PROCEDURE: 

Set-Up, Previous Prqcessing : 

Set-up is as required for DUP (General). 

Processing/Method: 

The program table is searched for the new name. If a 
program by that name is already present, a diagnostic 
is produced. If not, the program table is searched 
for the old name. If the program is not present, a 
diagnostic is produced. If the program is present, 
but is either 

a) a move mode file, 

b) a headerless load mode block, 

or c) a fixed-location (system disk) program, 

a diagnostic is produced. If the nrogram block Is 

not of the above types, it is a candidate for renaming. 

The header and trailer of the program are checked. If 
it is in error, a diagnostic is produced and the system 
comes to a hard halt. Otherwise, 

a) the program table is updated with the new name 
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b) the header and trailer are updated with the 
new name . 

c) a log entry is made. . 

d) the verification message is typed and printed 

e) the parameter and usage reports are printed. 

f) the service Is complete. 



USAGE: 



Calling Seque nce 



'The program renaming service of DUP is called by a con- 
trol record beginning with *RENAME. It can be called 
implicitly by the DL0DR program (KC06A) with disk input. 

Control Cards: 

The *RENAME control record initiating the renaming ser- 
vice is described in the paragraph on Control Recora 
Syntax of DUP (General). No other control cards are 
required. 

Input: 

*RENAME requires no input. 

OUTPUT : 

The output which normally results from renaming one 
program consists of: 

a) a message, both typed and printed, verifying 
the renaming. 

b) a report on the program parameters from the 
DL0AD process for the program. 

c) a report on the usage statistics of the prograr 
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ERROR MESSAGES AND HALTS: 



In addition to the standard system halts and messages, 
and those messages described in the section on DUP 
(General), the following messages may occur on the 
typewriter and printer: 

7. N^" xxxxxx CANN0T BE RENAMED 

This indicates that the program block is either 
a file, or at a fixed location, and therefore 
cannot be renamed. 

8. n/nT THERE ALREADY IS A xxxxxx 

This indicates that the "new name" is already 
used for another program on the library. 

9. » DK RENAMED xxxxxx T0 yyyyyy sssss nnn 

This is the normal verification message, where 
xxxxxx is the "old name", yyyyyy is the "new name", 
sssss is the sector address its header occupies, 
and nnn is the number of sectors in the program 
block. 



OPERATING PROCEDURES: 

Operation during a program renaming should be com- 
pletely automatic. All the messages in the above 
paragraph are the concern of the user. See the Oper- 
ating Procedures for DUP (General). 

End-Of-Job , Post-Proces sing: 

After each requested renaming has been attempted, 
control is returned to mainline DUP. See the End-Of- 
Job, Post-Processing paragraph of DUP (General). 
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*C0PY 
PURPOSE: 



The program copying service of DUP provides a jeans 
of copying programs stored in the l4ul Operating 
System library to magnetic tape, in a format suitable 
for input to the *L0AD service of DUP. This may be 
done to "back up" a program against possible removal, 
modification, or replacement, either by other users 
or by setbacks of the system due to use of the mass 
restoration program RESTR (ZD02A). It may a so be 
used to provide an "auxiliary library" capability, 
wherein programs which have been little used and/or 
will not be used for some time in the future can be 
copied to tape, and then deleted to free disk space 
for more constructive uses. 



RESTRICTIONS: 

The following program blocks may not be copied to tape 

$PRGTB DUPB 

$L0G DUPC 

DUP DUTD 

DUPA DUPE 

T i^e / C o re^e^u^r^me nts : 

The time required for the program copying service 
varies according to the number of programs to be 
copied, and the number of programs on the input tape 
(if the 'WITH tape name 1 option is used). In any 
case, use of the program copying service should be 
less than ten minutes. Copying proceeds at nearly 
full tape speed. 

Core requirement is as described for DUP (General). 



PROGRAM PROCEDURE: 



s et - Un_i_P r evi ous_ P i^c e s s in g 2. 

An output tape should be mounted on tape drive 2. 
A mini-reel will often suffice for this purpose. If 
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the "WITH tape-name" option is to be used (tape update), 
the proper previously *C0PYed tape should be mounted 
on tape drive 1 as input. Also see the Set-Up, Pre- 
vious Processing paragraph of DUP (General,, 

L E2£c s s i nj|/Me t ho d : 

A full descriotion of the *C0PY operation appears below, 
in the paragraph titled Processing Method — Technical 
Description. 



USAGE : 



l 2§:ill^_S eq ue n c e : 

The program copying service of DUP Is called by a con- 
trol record beginning with *C0PY. 

Control^ Cards : 

The two forms of the *C0PY control record which initiate 
this service are described in the Control Record Syntax 
section of DUP (General). No other control cards are 
required. 



Inout : 



Tape input is required if the "WITH tape name" form of 
the control record is used. The tape, on drive 1, 
should have been previously produced by the *C0PY ser- 
vice of DUP. Its format should be identical to that 
described in the following paragraph on output. 



OUTPUT 



'ape Output: 



The main output from use of the program copying service 
of DUP consists of a tape containing: 

a) header information consisting of an I0CS header 
and a DUP tape-name header. 

b) a program table Identifying the programs on the 
tape. ' These may be program blocks that were spec- 
ified for copying, or carryover program blocks i? 
the "WITH tape name" form of control record was use 



1401 0. S. II 
DUP - p. 17 
(*C0PY) 

c) a set of records for each program block which was 
carried over from a previous tape due to use of 
the "WITH tape name" form of control card. 

d) a set of records for each program block which was 
specified for copying. 

e) a DUP trailer and I0CS trailer. 

The format of the I0CS header is type "B" (80-positions) , 
with identification DUP*C0PY and a negative retention 
cycle The format of the DUP tape-name header is a 
110-position BCD load-mode record with the tape name 
in the first 6 positions. 

The format of the program table is one or more^ ^ 
I10-Dosition BCD load-mode records, each containing 
zero ?o seven 15-character entries. The last entry is 
followed by a record mark. The 15-character entry 
consists of the name, beginning sector address at time 
of copying, and number of sectors, as in the disk pro- 
gram table. 

The set of records corresponding to a program block 
consists of a "program block header" having the char- 
acters $* in the first two positions, followed by an 
M or L denoting move- or load-mode, followed by a 
15-character entry as described above. The program 
block header is a 110-character binary move-mode 
record. Following the program block header are records 
containing the sequential disk images f the program, 
one sector to a record. Records containing the header, 
loader, and trailer are included for programs. 

For a load-mode file or program, there are two records 
per sector: 

a) a 110-position BCD load-mode record 
pos. 1-3) sequence number 
pos. 4-10) blank 

pos. 11-100) word mark skeleton of the sector, 

over blanks 
pos. 101-110 blank 

b) a 110-position binary move-mode record 
pos. 1-3) sequence number 

pos. 4-10) blank 

pos. 11-100) data of the sector, without 

word marks 
pos. 101-110) blank 

At the end of a load-mode program block, one. 110-position 
BCD load-mode record is written having $* in positions 
1-2. 



1401 0. S. II 
DUP -0.I8 
(*C0PY) 



For a move-mode file, there is one record for each sector 

a) a 110-position binary move-mode record 

pos. 1-3) sequence number 

pos. 4-10) blank 

pos. 11-110) data of the sector 

The DUP trailer record contains $*t in positions .1.-3. 
It Is a 110-position binary move-mode record. 

The I0CS trailer is standard "B" format, with a record- 
count kept, and with tape-marks before and after. 



Printed Output 



In addition to the output tape, a message is typed and 
printed for each program written on the output tape, 
whether it be passed"along from an input tape or copied 
from disk. The typed output is in the form of a "tape 

packing list" which shoul d b e inserted in the_tape_case 

when the output tape Is dismounted. 



ERROR MESSAGES AND HALTS: 



Four types of halts and messages may occur during use 
of the program copying service: 

a) the system standard halts and messages. 

b) I0CS halts, described in IBM publication C24-3298 
(Input/Output Control System - Disk, Operating 
Procedures. IBM File Number 1401/1*160-30). 

c) the halts and messages described In DUP (General). 

d) halts and messages specific to the program copying 
service. 

Only halts and messages of type d) will be discussed 
here : 

10. >JT BAD REC0RD 0R MISSING REC0RD, N0 . nnn IN xxxxxx 
This message indicates that the input tape mounted 
is probably unusable. 

11. JT T00 MANY PR0GRAMS 

This message should not occur, but If it does it 
indicates that the number of program names in the 
control record, plus those already on the tape If 
the "WITH tape-name" option is used, is too great 
for the capacity of the system. 



1401 0, S. II 
DUP - p. 19 
(*C0PY) 

12. ^"xxxxxx IS N0T 0N DRIVE 1 

This message indicates that the input tape mounted 

was produced by the program copying service, but 

is not the one specified in the control record after 
the word 'WITH 1 . 

13. \£f ERR0R IN TAPE STRUCTURE 

This message indicates that the input tape mounted 
is probably unusable. Hard halt 222 accompanies 
this message. 

14. » xxxxxx C0PIED FR0M yyyyyy 

This message can occur only If the 'WITH tape-name' 
option is used, and is the normal verification of 
the copying of a program block from the old tape 
to the new tape. 

15. » DK C0PIED xxxxxx sssss nnn 

This is the normal verification message for the 
successful copying of one program block from disk 
to tape. 

16. » TAPE PACKING LIST 

» nn-nn PM, day, month/date, year 

» DUP TAPE NAME IS yyyyyy 

This Is the normal header of the list of programs 

on the output tape. 



OPERATING PROCEDURES: 



Set-up Is as noted above. In normal operation the pro- 
cedure would merely be to dismount the tape when It 
rewinds, and insert the tape packing list in the case 
with the tape. Also consult the Operating Procedures 
in DUP (General). 

If message 10 or 13 occurs, the copying attempt should 
be abandoned. Message 11 is the concern of the user. 
Message 12 requires the mounting of the correct tape: 
the operator should consult the tape packing lists of 
the tapes available to him. Messages 14 through 16 
are normal. 

After copying all requested program blocks, control Is 
returned to mainline DUP. The operator should dismount 
the tape and Insert the tape packing list in the case 
with the tape. Also consult the End-Of-Job , Post-Proc- 
essing paragraph of DUP (General). 
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PROCESSING/METHOD — TECHNICAL DESCRIPTION 



The complete control record is scanned and a table of 
program blocks to be copied is built. At this time, 
duplicate names on the control record, if any, and cer- 
tain uncopyable program names, are eliminated from the 
table.. For a list of these, see Restrictions. Program 
blocks specified for copying which are not on disk re- 
sult In a diagnostic at this time. 

If the 'WITH tape-name' option is used on the control 
record, the tape on drive 1 is opened and checked for 
identification. Either an I0CS halt or a typed diagnos- 
tic can result at this point if the Identification check 
fails . 

With the 'WITH tape-name' option, the following sequence 
then occurs: 

a) the output tape Is opened and the DUP header is 
written, 

b) a comparison of the program names to be copied and 
the program table of the old tape yields a table of 
program blocks to be carried over. If a program 
name Is already represented on the old tape, and is 
specified for copying, the old version is ignored 
and the present version on disk is copied onto the 
output tape. 

c) the program table from the old tape is copied to 
the output tape, and augmented with program names 
to be newly copied. 

d) program blocks on the old tape are read, and either 
passed or copied to the output tape as determined 

In step b) above, messages being produced for blocks 
which are copied. 

e) when the DUP trailer record is encountered, one 
more record is read to accomplish the I0CS end-of- 
file processing, Including record-count checking, 
and the old tape is closed. 

f) operation proceeds as in step c) of the following 
description. 



1*401 0. S. II 
DUP - p. 21 
(*C0PY) 



Without the 'WITH tape name 1 option, 

a) the output tape is opened and the DUP header written 

b) the program table is constructed and written. 

c) program blocks specified for copying are read from 
disk and written, messages and log entries being 
produced for each. 

d) the DUP trailer is written and the output file is 
closed. 

e) the typewriter sheet is spaced up to isolate the 
tape packing list. 

f) the service is completed, and control Is returned 
to mainline DUP. 



1401 0. S. II 
DUP - p. 22 
(*L0AD) 



*L0AD 



PURPOSE : 



The program loading service of DUP provides a means of 
loading 'programs, previously copied to magnetic tape 
by the program copying service, back onto the 1401 
Operating System library. This service is not to be 
confused with the original loading service afforded by 
the DL0AD macro or deck and the DL0DR program (KC06A). 



RESTRICTIONS: 

Time ? Core Requirements : 

The time required for the program loading service 
varies according to the number of programs to be load- 
ed and the number of programs on the input tape. In 
any case, use of the program loading service should be 
less than ten minutes. Loading proceeds at nearly 
full tape speed. 

Core requirement is as described for DUP (General). 
PROGRAM PROCEDURE: 

Se tzH^^^ r e vi o us _P ro ce s s I ng : 

The tape named on the control record must exist, and 
must be a tape previously created by the program copy- 
ing service of DUP. This tape should be mounted on 
drive 1. Also see the paragraph on Set-Up, Previous 
Processing for DUP (General). 

Processing/Method : 

A detailed description of the processing method will 
be found below In the paragraph on Processing Method - 
Technical Description. 
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USAGE 



C al I i E£_S eg_uen c e : 

The program copying service of DUP is called by a con- 
trol card beginning with *L0AD. 

C ° [it £°A_C ar d s : 

The format of the *L0AD control record initiating the 
orogram loading service is described In the paragraph 
hn Control Record Syntax of DUP (General). No other 
control cards are required. 



Input : 



The format of the Input tape required on drive 1 is 
described in the paragraph on Tape Output of the DUP 
(*C0PY) section of this document. No other input is 
required. 



0UTPU r 



On completion of the loading service, the format of 
the program is identical with the format at the time 
it was copied to tape. However, its location In the 
library may be different. 

Messages are typed and printed for each program loaded 
from the tape. Diagnostics concerning absence of a 
requested program from the tape and output from the 
program deletion service may precede this normal *L0AD 
output. 

ERROR MESSAGES AND 14 ALTS : 

Five types of halts and messages may occur during per- 
formance of the program loading service: 

a) the system standard halts and messages, q 

b) I0CS halts, as described in IBM publication C2^-329c 
(Input-Output Control System - Disk, Operating Pro- 
cedures. IBM File No. 1401/1460-30) , 

c)' the halts and messages described in the DUP (General-' 

d) messages 10-13 described in the DUP (*C0PY) section, 

e) halts 'and messages specific to the program loading 
service. 
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Action for messages 10-13 described in the DUP (*C0PY) 
section should be as described in that section. 

Only halts and messages of type e) will be discussed 
here : 

17. ^xxxxxx N0T 0N TAPE 

This message indicates that program block xxxxxx 
was specified for copying but is not on the input 
tape. 

18. » DK L0ADED xxxxxx sssss nnn 

This message is the verification message for the 
successful loading of one program block. It can 
be distinguished from the similar message put 
out by the DL0DR program (KC06A) in that the 
latter is followed by a period. 

19. JT xxxxxx C0NFLICTS WITH PERMANENT DISK BL0CK 
This message indicates that conflict with an 
already-existant program block on disk has been 
discovered, either in name or disk location. See 
the paragraph on Processing Method — Technical 
Description. 

20. <JT INSUFFICIENT DISK F0R xxxxxx 

This message indicates that a serious disk crowd- 
ing problem has developed, and available space 
large enough for program block xxxxxx cannot be 
found. 



OPERATING PROCEDURES: 



Set-up is as noted in a previous paragraph. In normal 
operation the procedure would merely be to dismount 
the tape when it rewinds, and make sure that the tape 
packing list remains in the tape case. Notice should 
also be paid to the operating procedures in the section 
on DUP (General) . 

Action on messages 10 through 13 are as described in the 
section on DUP (*C0PY). Messages 17 and 19 are the 
problem of the user. Message 20 indicates a serious 
disk crowding problem, and action should be taken 
according to current UWMCC policy. Message 18 is normal 
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End -Of-Job, P ost- Processing: 



When all requested program blocks have been loaded , 
control is returned to mainline DUP. The operator 
should dismount the tape, making sure that the tape 
packing list remains in the tape case. Also see the 
End-Of-Job, Post-Processing paragraph of DUP (General) 



PROCESSING METHOD - TECHNICAL DESCRIPTION: 



The complete control record is scanned and a table of 
program names to be loaded is constructed. At this 
time duplicate names on the control record , If any, are 
eliminated. 

The Input tape on drive 1 Is opened and checked for 
identification. Either an I0CS halt or a typed dia- 
gnostic may result at this point If the identification 
check fails. 

A table of the names to be deleted is constructed. This 
table contains all names which are: 

a) specified for loading, and 

b) on the tape, and 

c) in the 1*101 Operating System library. 

If a program block is already on disk It will be replac- 
ed by the version on the tape. 

In order to determine the above, the program table on 
the tape is scanned. When this is completed, diagnos- 
tics may be produced indicating program(s) specified 
for loading which are not on the input tape. 

At this point, if there are programs to be deleted, the 
program deletion service of DUP is called. After delet- 
ing the one or more programs necessary and producing 
its normal output, the deletion phase returns control 
to the program loading service. On such a return, the 
input tape must be re-opened (hence rewound) , arid re- 
positioned to its former status. 

Each program block on the tape is then handled in the 
following fashion: 

a) If the block has not been specified for loading, 
it Is passed and the next block considered. 



c) 



d) 



e) 



f) 

g) 

h) 
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passed unless ^duplicates start at the same disk 
location and are of the same length. d ,- apnos - 
If a fixed location program is duplicates, a d.agnos 

.,, Dr oduced and the block passed unless the 
duplicates start at the same disk location and there 
insufficient soace for the tape version. 
If there isno dunlication, and the program is not 
at a fixed location, an unused disk area which is 
the smallest that will accomodate the program 
block is chosen. If there is no such area, a 

ff^ere'is'no'Sucaiion, and the program block is 
at affixed 8 location, a "a-noBtic i-^roduced »1.« 
sufficient unused area starting at that location 

iHhe cases with no duplication, an entry is in- 
serted in the Operating System program table. 
The block is copied to disk at the appropriate 
location, sector by sector. „,„,.«„. 

The loading verification message is typea and printed, 



and a log entry is made. -,„,.„ 

i) The service of loading one program is complete. 



1401 0. S. II 
DUP - p. 27 
(*DUMP) 



*DUMP 
PURPOSE: 



The program printing service of DUP provides a means 
of obtaining a "core dump" of a disk-stored program 
block as it will appear when loaded into core but not 
yet executed (i.e. in "disk image"). The service 
prints all types of program blocks that can exist under 
the 1401 Operating System — blocks with or without 
headers, in either mode, etc. 

RESTRICTIONS: 

Time,, Core Req uirements: 

Printing proceeds at approximately 150 one-hundred 
character segments per minute. The time to print one 
program varies according to its length. 

Core requirement is as described for DUP (General). 
PROGRAM PROCEDURE: 

Set-Up ? Previous Proc essing : 

Paper at least 12 inches wide must be on the 1403 printer 
in order to use the program printing service. Also see 
the Set-Up, Previous Processing paragraph of DUP (General) 

Processing/Method : 

Each one hundred characters is read from disk by a 
"virtual core" routine. The annotation line for each Is 
then constructed, and substitution characters inserted, 
by scanning the block read from disk. On the first line 
of the program block, the left end of annotation and 
data lines is cleared; on the last line the right end 
is cleared. The annotation line is printed, the data 
is loaded into the print area, the data and wordmark 
lines are printed, and the printer is spaced one line. 
This recurs until the last line is printed. 
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USAGE: 



Calling Sequence : 



The program printing service of DUP is called by a 
control record beginning with *DUMP. It Is also called 
at completion of service by the program modification 
service. 

Control Cards : 

The *DUMP control record, which initiates this service, 
is described in the paragraph on Control Record Syntax 
of DUP (General). No other control cards are required. 

Input : 

*DUMP requires no Input. 

OUTPUT:' 

The output from the printing of one program consists of: 

: * a) the program parameter information produced at DL0AD 
time. 

b) the usage Information accumulated since. 

c) a number of annotated lines, each representing 
100 characters of object program, sufficient to 
print the entire program. 

For a non-program block, only lines of type c) are 
printed, preceded by an indication of name, location, 
length, and mode. 

The first and last lines of type c) may be only partial 
lines so that the character corresponding to the load-to 
address is the first position represented in the print- 
out, and the character just before the group-mark 
word-mark address is the last character represented. 
Each such line begins at the XXX01 position and ends 
with the succeeding XXX00 position, and is accompanied 
by an annotation line giving the relative positions 
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in the line. In the annotation line may appear sub- 
stitution characters giving notice of unprintable or 
ambiguous characters in the line below, as follows: 



1402 






Card 


1401 


1401 


Code 


Internal 


Name 


none 


A 


Cent sign 


0-6-8 


CA842 


Backward slash 


5-8 


841 


Colon 


11-7-8 


B8421 


Delta 


11-0 


B82 


Exclamation point 


12-7-8 


CBA8421 


Group mark 


12-5-8 


BA841 


Left bracket 


0-7-8 


A8421 


Tape segment mark 


12-0 


CBA82 


Question mark 


11-5-8 


CB841 


Right bracket 


11-6-8 


CB842 


Semicolon 


7-8 


C8421 


Tape mark 


0-5-8 


CA841 


Word separator 


12-6-8 


BA842 


Less than 


6-8 


842 


Greater than 



Substitution 
Character 

A 
B 
C 
D 
E 
G 
L 
M 
Q 



T 
W 
Y 
Z 



ERROR MESSAGES AND HALTS: 

Aside from normal output, no halts or messages besides 
the system standard halts and messages and the halts and 
messages described in the DUP (General) section can occur 



OPERATING PROCEDURES: 



Set up is as noted in a previous paragraph. Operation 
of the program printing service should be completely 
automatic. ' See the paragraph on Operating Procedures 
for DUP (General) . 

Enlz 1- £ °b.JL_P 9^- Processing : 

When all requested program blocks have been printed, 
control is returned to mainline DUP. See the End-Of-Jofc , 
Post-Processing paragraph of DUP (General). 
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*PUNCH 



PURPOSE 



The program punching service of DUP provides a means of 
obtaining card object decks of programs stored In the 
1*401 Operating System Library. 



RESTRICTIONS: 

Move-mode files and headerless load-mode blocks cannot 
be punched. 

Time, Core Requirements: 

The time required to punch one program varies according 
to the length of the program. Punching proceeds at 
approximately 200 cards per minute unless large numbers 
of blank output cards are being bypassed. 

Core requirement is as described for DUP (General). 
PROGRAM PROCEDURE: 

Set-Up, Previous Processing: 

A sufficient number of cards must be readied in the 
1*102 punch hopper. See the Set-Up, Previous Processing 
paragraph of DUP (General). 

Processing/Method: 

A "virtual core routine" is used to read the area of 
disk containing the data to be punched on a given card. 
Data is then moved to the card, character by character, 
and loading Instructions are created, until one of the 
following occurs: 

a) 39 characters have been moved to the card. 

b) a word-marked character is encountered and no more 
set-word-mark loading instructions are available. 

c) the last character before the group-mark word-mark 
address has been moved. 

The card is then punched, unless the characters to be 
loaded are all blanks and the loading instructions set 
no word-marks . 
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After an entire deck Is punched, a log entry is made 
and a verification message is typed and printed. 



USAGE: 



Calling Seouence: 



The program punching service of DUP is called by a 
control card beginning with *PUNCH. 



Control Cards : 



Input : 



The *PUNCH control record Initiating the service is 
described in the paragraph on Control Record Syntax of 
DUP (General). No other control cards are required. 



*PUNCH requires no Input. 



OUTPUT 



Decks are punched in self-loading format, with object 
characters In columns 1-39 and loading instructions in 
columns 40-71. Columns 72-75 are used for a sequence 
number, increasing by one for each card. Columns 76-80 
contain as identification the first 5 characters of the 
name of the program. 

The deck begins with 16K core-clear cards followed by 
a bootstrap" card and the object cards. The deck ends 
with an execute card which transfers control to the 
execution address of the program block. 

The deck produced is virtually a "disk image" of the 
program as it is stored in the Operating System library, 
except that cards which would load 39 blank characters 
without word-marks are suppressed, since the core-clear 
cards will perform this function. Because of this, the 
lollowing differences may exist between the deck punch- 
ed and a deck, used to DL0AD the program- 
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a) only data between the load-to address and the group- 
mark word-mark address will be represented In the 
deck punched. 

b) any "execute" sequences in the original deck will 
not be reflected in the deck punched. 

c) cards produced by the ",C" option of a DA will not 
be reflected in the deck punched. 

d) other DA options will be handled differently. 



ERROR MESSAGES AND HALTS: 



In addition to the standard system halts and messages, 
and those messages described in the section on DUP 
(General), the following messages may occur on the 
typewriter and printer during use of the program punch- 
ing service: 

21. » DK PUNCHED xxxxxx sssss nnn 

This is the normal verification message for the 
successful punching of a program. xxxxxx is the 
program name, sssss is its starting sector, and 
nnn is the number of sectors in the program. 

22. nTnT xxxxxx CANN0T BE PUNCHED 

This message indicates that the name of a non- 
program block was found In a *PUNCH control record 

23. » nnn CARDS WERE PUNCHED 

This message follows message 21 on the printer. 



OPERATING PROCEDURES: 



Operation during the punching of one or more programs 
should be completely automatic. The operator should 
keep track of where each deck ends if more than one Is 
punched. An extra blank card is punched after each 
program, so that the last card need not be run out. 

All the above messages are the concern of the user. See 
the paragraph on Operating Procedures for DUP (General). 

End -Of- Job, Post-Processing : 

On completion of the processing of all programs for 
which the service was requested, control is returned 
to mainline DUP. See the End-Of-Job, Post-Processing 
paragraph of DUP (General). 
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II 



*PATCH 



PURPOSE 



The program modification service of DUP provides a means 
by which programs stored on the iMOl Operating System 
Library may be updated, changed, and corrected by means 
of standard- format "patch cards", without recourse to 
the original deck from which the program was DL0ADed. 
Patch cards may either be in Autocoder self-loading or 
condensed format. 



RESTRICTIONS: 



Move-mode files and headerless lode-mode blocks cannot 
be patched. The program modification service is not 
designed for the complete replacement of programs by 
means of decks produced by the AUT0C0DER assembler. 
For example, cards produced by DA statements using the 
",C" option cause format diagnostics. As a result, the 
area may not be cleared. In addition, the size of the 
program may be different than that of the disk-stored 
version. Use the program deletion service and the 
DL0AD macro or deck with the DL0DR program (KC06A) to 
perform complete replacement. 

Time , Co re Requirements: 

The program modification service reads patch cards from 
the 1402 reader at approximately 100 cards per minute. 
The time required for use of the service varies accord- 
ing to the number of patch cards. See the Time, Core 
Requirements paragraph of the *DUMP section of this 
document. 

Core requirements are as described for DUP (General). 
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PROGRAM PROCEDURE: 



Set-Up a Previous Processing : 

The patch cards must be prepared by the user in the 
correct format. See the Set-Up, Previous Processing 
paragraphs in the DUP (General) and DUP (*DUMP) sec- 
tions of this document. 

Processing/Method : 

A full description of *PATCH operation is found below, 
in the paragraph titled Processing Method — Technical 
Description. 



USAGE : 



Calling Sequence : 

Use of the program modification service of DUP is 
initiated by a control record beginning with *PATCH. 

Control Cards : 

The *PATCH control record initiating the program mod- 
ification service is described in the Control Record 
Syntax section of DUP (General). Note that, unlike 
other DUP control records, only one program name may 
appear in a *PATCH control record. As with other DUP 
control records, if the record ends with a period 
followed by a space, the DUP end-of-job occurs after 
the service is performed (i.e., all patch cards are 
read). 

Input : 

Patch Cards : 

Patch cards may be in either self-loading or condensed 
format, in any mixture. A card is judged self-loading 
if: 

a) columns 68-71 contain 1040 

b) columns 40, 47, 5 1 *, and 61 each contain one of 
these characters: M, L, □ , N, or *,' (comma). 

c) if all of the address fields of the instructions 
having op codes as in b) are valid 1401 addresses. 
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A card is judged to be in condensed format if: 

a) columns 1-3 contain a valid 1401 address 

b) columns 4-5 contain numeric digits less than 67 in 
value 

c) the columns beyond the number of characters indi- 
cated in 4-5 are blank. 

Diagnostics are produced if neither set of conditions 
above is satisfied, and also if the card is "out of 
bounds", as described below in the paragraph on Pro- 
cessing Method — Technical Description. 



Trailer Card: 



Following all patch cards must be a card which is com- 
pletely blank in at least its first 4l columns. Other 
DUP control cards may follow this card directly. 



OUTPUT: 



Normal output from use of the program modification ser- 
vice includes an 80-80 listing of the patch cards 
(diagnostics may appear interspersed in this listing), 
followed by the normal output of the program printing 
service for the same program, namely the program para- 
meters, usage statistics, and "core dump" of the pro- 
gram. ...£;■• '.'( 



ERROR MESSAGE'S AND HALTS 



In addition to the standard system halts and messages 
and the halts and messages noted in the DUP (General) 
and DUP (*DUMP) sections, the following messages may 
occur: 

24. nW~ xxxxxx CANN0T BE PATCHED 

This message indicates that an attempt has been 
made to patch a non-program entry. 

25. 4T N0T IN PATCH F0RMAT 

This message indicates that the patch card above 
it is not recognizable as in self-loading or 
condensed-loading format, as defined above in 
the paragraph on Patch Cards. 
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26. *JT 0UT 0P B0UNDS 

This message indicates that the patch card above 
it does not satisfy the bounds criteria described 
below in the paragraph on Processing Method — 
Technical Description. 

27. » DK PATCHED xxxxxx sssss nnn 

This is the normal verification message at the 
completion of the program modification service, 
where xxxxxx is the program name, sssss is its 
first sector, and nnn is the number of sectors 
in the program. 



OPERATING PROCEDURES: 



No special operating procedures are necessary for use 
of the program modification service. All of the above 
messages are the concern of the user. If message 2*1 
or DUP (General) messages or 2 occur,, the patch cards 
are automatically run through the reader. If DUP 
(General) message 1 occurs on what appears to be a 
*PATCH control record, the operator must remove the 
patch cards from the reader manually. See the Operating 
Procedures paragraph for DUP (General). 

End-Of-Job, Post-Processing : 

When the trailer card Is read: a log entry is made; 
a verification message Is typed and printed; and the 
program printing service is called. When that service 
is completed, control is returned to mainline DUP. 
See the End-Of-Job, Post-Processing paragraph for DUP 
(General). 



PROCESSING METHOD — TECHNICAL DESCRIPTION 



Input is read through the same I/O routine as control 
records: thus "patch cards", may be entered, from the 
typewriter, the card reader, or disk: in any case, the 
same Input device as control cards. It . is permissible 
to terminate the entry of patch cards with an end-of- 
file on the device in question rather than a blank 
card as cited above. The card Is first printed, then 
checked for self-loading validity according to the 
standards above. If this check fai.ls, the card Is 
checked for condensed-loading validity. If this check 
also fails, a diagnostic is produced. 
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For both formats a check is performed to ensure that 
the patch represented on the card Is within the bounds 
of the program. A diagnostic Is produced for a self- 
loading card if any of the following conditions fail: 

a) the lowest reference in the loading instructions 
(excluding references below 81) must be at or 
above the load-to address of the program. 

b) the highest reference in the loading instructions 
must be below the group-mark word-mark address. 

c) the difference between the lowest reference 
(excluding references below 81) and the highest 
reference must be less than 90. 

A diagnostic is produced for a condensed-loading card 
If either of the following conditions fail: 

a) the address in positions 1-3 must be at or above 
the load-to address of the program. 

b) the address formed by adding positions 4-5 to 
positions 1-3 (the highest reference) must be 
below the group-mark word-mark address of the 
program. 

The actual patching operation is done through a "virtual 
core" routine which reads the appropriate part of the 
program from disk. The patch is made, and the segment 
is rewritten to disk. The next card is then read and 
processed in the same manner, unless It is the trailer 
card. 
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PROGRAM: 

MACHINE: 

LANGUAGE: 

SUPERVISOR PROGRAM: 

PROGRAMMER: 

DATE COMPLETED: 



SYSCL 

IBM 1401 

AUT0C0DER 

none 

Systems Division 

July 1, 1968 



PURPOSE: 



SYSCL calls the IBM system and starts the operation 
of that system, leading to a Fortran or C0B0L compila- 
tion, AUT0C0DER assembly, or RPG generation. It 
duplicates the operation of the 14-card IBM system 
boot, with certain added capabilities. 



RESTRICTIONS: 



Time, Core Requirements^ 

Execution of SYSCL itself takes less than 3 seconds, 
which is followed by the processing time of the relevant 
IBM system. 

SYSCL Is a mainline program, effectively using all of 
core during its brief execution. 



PROGRAM PROCEDURE: 



k lg.LzH.E^_^.^X j - ous Processing : 

No previous processing is necessary for use of SYSCL. 
The IBM system pack should be on the opposite drive 
from the Operating System pack, except in the case when 
one drive is inoperative. 14 inch wide paper is 
normally used in the 1403 printer for assemblies and 
compilations. 

Processing/Method : 

A detailed description of the method of operation will 
be found below, in the paragraph titled Processing 
Method — Technical Description. 
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USAGE 



Calling S eque n c e : 
Source of Call: 



SYSCL Is usually called by a log-start card, but may 
be called by means of the inter-job entry code D0, or 
by a LINK macro from an AUT0C0DER or C0B0L program. 



Program Common: 

The program 
the "assumed 
the IBM syst 
Fortran (or 
C0B0L should 
left justifi 
any other le 
ments will b 



common field 
assignments 
em. To get 
C0B0L) compi 
be containe 
ed. If the 
tters or is 
e those most 



used to call SYSCL determines 
" of various files used by 
file assignments suitable for 
lation, the word F0RTRAN or 
d in the program common field, 
program common field contains 
blank, the assumed file assign- 
suitable for Autocoder assembly 



Control Cards 



Input 



OUTPUT 



A SYSTEM ASGN card is not needed when SYSCL is used. 
Other than that, control cards are as described in the 
relevant IBM publications. The need for special ASGN 
cards for Fortran or C0B0L compilation is largely 
obviated by the program common conventions described 
above. 



Input is as described in the relevant IBM publications 



Output is as described in the relevant IBM publications 



ERROR MESSAGES AND HALTS: 



Aside from the standard system disk halts and messages, 
the following may be produced during use of SYSCL, all 
on the console typewriter: 
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1. TYPE WHETHER DRIVE n IS AVAILABLE 

followed by a wait-for-console loop. 

In this message, n = 'O 1 references module 0, 

n = f 2V references module 1. 

2. TURN 0N DRIVE n 

followed by a halt with A-register blank, 
n as in message .1. 

3. M0UNT IBM PACK 0N DRIVE n 

followed by a halt with A-register blank, 
n as in message 1. 

4. IN THAT CASE 0NLY SMALL AUT0C0DER J0BS MAY BE RUN 

The halts and messages documented in the IBM system 
publications should also be noted. ' 



OPERATING PROCEDURES: 

if message 2 occurs, the operator should turn on the 
indicated drive, and press START when the drive has 
come to ready status. If the indicated drive is inoper- 
ative, the operator should simply press START, whereupon 
message .1 is" typed. . The operator should enter 'NO' at 
thtsDGJnt. Any other response causes the program to. 
revert to message'?. if: 'NO' is entered, message j \ is 
typed, and the job is aborted if the program common 
field contains indication of Fortran, G0B0L, or Tabtran 
activity ."'_'.. 

When the drive is selected, message 3 may. occur, in. 
which case the. operator should mount;- the. IBM system 
pack:, and press START when the drive has come to ready. 
. status . 

"The operating procedures documented, in the IBM system 
publications should also be. noted.- 

E!-Hi~Of>J'ob- ? __P_o^t-Proce.ssin£: 

If the last card Indicator is on when the IBM system 
completes an assembly or compilation, control is trans- 
fer.red back to the Operating System with an EXIT. 
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The IBM system recognizes the Version 2 log-start card 
(but does not recognize the Version 1 card), arid per- 
forms a simulated L0AD upon it if encountered. No 
post-processing is required after use of SYSCL and the 
IBM system, but it is common for an object deck to be 
loaded immediately for testing or loading to disk. 



PROCESSING METHOD — TECHNICAL DESCRIPTION: 



Choice of Drive : 

The log-start card is selected to reader pocket one. 
The Operating System communication, sector is read, and 
the job number and man number are saved. The IBM system 
drive is at first assumed to be the opposite drive 
from the Operating System. If that drive is not on or 
does not contain the IBM system, the operator is instruct- 
ed to mount the proper pack. If a not-on condition per- 
sists a second time, the operator is given an option to 
select a one-drive configuration (other drive not operable) 

Transfer to the IBM System : 

Whichever drive is selected, processing continues as 
follows : 

1. The IBM permanent file-hardware table is read, the 
W0RK1, 2, and 3 files and the LIBRARY, L0ADER, 
C0REL0AD and INPUT files are given their assumed 
assignments, as controlled by the program common 
field. The temporary file-hardware table Is written. 

2. The IBM phase index table Is searched for an entry 
for phase 80P. If an entry for 80P is found, and 
8j3P Is patched to punch a log-start card, a log- 
start card image with the appropriate job number, 
man number, and program-name L0AD (all other fields 
blank) is written into 80P. 

3. The IBM I/O package is read. 

4. Various parameters are moved into the first 4K to 
simulate the results of executing the card boot 
and the system boot. 

b. The IBM Determiner phase is read. 
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6. Core is cleared in the upper 12K. 

7. If the program common field indicates that SYSCL 

An™r«npR d pnX the / ABTRAN Processor, an appropriate 
AUT0C0DER RUN card is passed to the Determiner. 

8. Control is transferred to the Determiner. 
A *L 1 umed _FI 1 e _A s s ignmen t s : 

The following file assignments are set up by SYSCL The 
interested user should also refer to the section IBM 
SYSTEM CHANGES. section liii, 



a, 



b. 



c. 



rL?H th ^r 5 ?r °P erative > and the program common 
field contains the word F0RTRAN: 



W0RK1 

W0RK2 

W0RK3 

LIBRARY 

L0ADER 

C0REL0AD 

INPUT 



1311 UNIT y, START 000800, END OO38OO 

1311 UNIT y, START OO38OO, END 006800 

1311 UNIT y, START 006800, END 008800 

1311 UNIT x, START 012000, END 013900 

1311 UNIT x, START 010000, END 012000 
0MIT 



ASGN 
ASGN 
ASGN 
ASGN 
ASGN 
ASGN 
ASGN READER 1 



If both drives are operative, and the program common 
field contains the word C030L: 



W0RK1 

W0RK2 

W0RK3 

LIBRARY 

L0ADER 

C0REL0AD 

INPUT 



ASGN 
ASGN 
ASGN 
ASGN 
ASGN 
ASGN 
ASGN 



1311 UNIT y, START 000800, END 006000 

1311 UNIT x, START 010000, END 012000 

1311 UNIT y, START 006000, END 008800 

1311 UNIT x, START 013900, END 019980 

0MIT 

0MIT 

READER 1 



rf ?S^ ^f iV ! 3 are °P erat ive, and the program common 
field indicates SYSCL was called by the TABTRAN 
processor: 



W0RK1 

W0RK2 

W0RK3 

LIBRARY 

L0ADER 

C0REL0AD 

INPUT 



ASGN 
ASGN 
ASGN 
ASGN 
ASGN 
ASGN 
ASGN 



1311 UNIT y, START 000800, END 006000 

1311 UNIT y, START 006000, END 007800 

1311 UNIT y, START OO78OO, END 008800 

1311 UNIT x, START 013900, END 019980 
0MIT 

1311 UNIT y, START 008800, END 010000 

1311 UNIT x, START 010000, END 012000 
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Assumed File Assignments: (con't) 



d. 



If both drives are operative, and the program common 
field is of any other form or is blank: 

1311 UNIT y, START 000800, END 008000 

1311 UNIT x, START 010000, END 012000 

1311 UNIT y, START 008000, END 008800 

1311 UNIT x, START 013900, END 019980 
0MIT 
C0REL0AD ASGN 0MIT 



W0RK1 


ASGN 


W0RK2 


ASGN 


W0RK3 


ASGN 


LIBRARY 


ASGN 


L0ADER 


ASGN 



INPUT 



ASGN READER 1 



e. If only one drive is available: 

W0RK1 ASGN 1311 UNIT x, START 010000, END 011300 

W0RK2 ASGN 1311 UNIT x, START 011300, END 011800 

W0RK3 ASGN 1311 UNIT x, START 011800, END 012000 

LIBRARY ASGN 1311 UNIT x, START 013900, END 019980 

L0ADER ASGN 0MIT 

C0REL0AD ASGN 0MIT 



INPUT 



ASGN READER 1 



where: x Is the IBM system drive 

y is the Operating System drive. 



1401 0. S. II 
I. D. # KC11A 



PROGRAM: TL0AD 

MACHINE: IBM 14 01 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE 



TL0AD initiates loading of a tape-stored object program 
into 1401 core storage, simulating the function of the 
tape-load button on the 1401 C.P.U. 



RESTRICTIONS: 



The first record on the input tape must be a tape 
boot-strap. 

Time, Core Requirements : 

TL0AD execution time is less than one second. It is a 
mainline program, effectively using all of core during 
execution. 



PROGRAM PROCEDURE: 



Set-Up, Previous Pr oc es sing : 

The input tape should be mounted on tape unit 1. The 
first record must be a tape boot-strap. 

££°£!!£s :^g/Me t ho d : 

TL0AD clears high core, reads the first record from the 
input tape, and branches to core position 1. 



USAGE 



Calling Sequence : 

TL0AD is normally called by a log-start card, but may 
be called by use of the inter-job entry code D0 , or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 
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Control Cards : 

TL0AD requires no control cards. 
Input : 

The only Input consists of the Input tape on tape unit 1 

OUTPUT: 

TL0AD produces no output. 
ERROR MESSAGES AND HALTS: 



Aside from the standard system halts and messages, no 
halts or messages should occur during execution of TL0AD 



OPERATING PROCEDURES : 



Set-up is as described in a previous paragraph. Opera- 
ting procedures are as required by the object program 
to be loaded. 

End-Of-Job, Post-Processing : 

Control is transferred to the user's routine, which is 
read Into core by the tape boot-strap. 
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PROGRAM: LIST 

MACHINE: IBM 1401 

LANGUAGE: Autocoder 

SUPERVISOR PROGRAM: lUOl Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



LIST provides 80-80 card-to-printer listing, with the 
following options: 

double spacing 

page numbering 

card numbering 

header line 

column annotation 

unprintable character annotation 

horizontal displacement of card image 

listing of log-start cards encountered 

new page on special character in column 1 



RESTRICTIONS: 



lllHl2._Cor e _Rea ui rement s : 

LIST will read and print at 600 cards/lines per minute 

™J 68 ? th ,nn A ° r / ° Ptl ° n iS USed > in which case the ' 
rate is 300 cards per minute or slightly less. 

LIST is a mainline program, effectively using all of 
core during its execution. 

PROGRAM PROCEDURE: 

§£^:dlE.j L _Pr e vi ous _Pr o cessing : 

Paper at least 8 1/2 inches wide must be used in the 
1403 printer with 10 1/2 inch wide paper required If 
the T, P, or N option is used (see below, Program 
Common). 

A standard 1-12 carriage tape of the correct length 
should be used. 

No previous processing is required for use of LIST. 
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Pro c e s s 1 n g/ M e th od j_ 

A detailed description of the method of operation will 
be found below in the paragraph titled Processing 
Method — Technical Description. 



USAGE: 

C alling_Seguen ce : 
Source of Call: 

LIST is normally called by a log-start card, but may 
also be called by use of the inter-job entry code D0 
or by a LINK macro from an AUT0C0DER or C0B0L program. 

Program Common: 

The content of the program common field used to call 
LIST determines its operation to a large extent. One 
or more non-blank characters may be entered anywhere 
within the field, each character indicating an option 
as described below. If no such characters are used 
(program common field blank), LIST produces an 80-80 
listing, single spaced, and executes any log-start 
card it encounters in the input deck. 

Characters indicating options are: 

A causes annotation of card positions In an extra 

line above each card image, consisting of a line of 
periods with positions 10, 20, ..., 80 noted expli- 
citly If this option is used together with the S 
option, special character annotation overlays the 
position annotation. Due to the extra line, this 
option causes the card-per-minute rate to drop to 
300. 

B causes cards to be read "binary" — any card code 
is legal. No responsibility is taken for the char- 
acter printed in a non-BCD position, since binary 
columns are treated as the 6-bit "hash" of the holes 
punched. 

D causes the line images to be double-spaced. This 
skipped line Is in addition to the extra line caused 
by use of the A or S option. 
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H causes the first card in the input deck (after any 
log-start card) to be read and stored. Thereafter, 
it is used as a "header" line at the top of each 
page, including the first. 

L causes any log-start cards in the input deck to be 
listed rather than "trapped" and executed. 

N causes a card number to be printed to the right of 
each card image. 

P causes a page number to be printed at the top of 
each page. This is on the same line as, and to the 
right of, the header line (if the H option is used). 

S causes annotation of ambiguous and unprintable char- 
acters, in an extra line above each card image. 
Characters appear above the position occupied by the 
unprintable or ambiguous character, as follows: 







Annotation 


Card code 


1401 Name 


Character 


0-6-8 


Backward slash 


B 


5-8 


Colon 


C 


11-7-8 


Delta 


D 


11-0 


Exclamation point 


E 


12-7-8 


Group mark 


G 


12-5-8 


Left bracket 


L 


0-7-8 


Tape segment mark 


M 


12-0 


Question mark 


Q 


11-5-8 


Right bracket 


R 


11-6-8 


Semicolon 


S 


7-8 


Tape mark 


T 


0-5-8 


Word separator 


W 


12-6-8 


Less than 


Y 


6-8 


Greater than 


g 



If the S option is used together with the A option, 
special character annotation overlays the position 
annotation. Due to the extra line, and the consider- 
able internal processing involved, this option 
causes the card-per-minute rate to drop to 300 or 
slightly below 300. 

T causes the card images to be centered on a 14-inch- 
wide page, occupying printer positions 21-100 rather 
than 1-80. This distributes wear on the printer 
ribbon. 
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Any special character entered In the program common 
field causes LIST to start a new page on the listing 
for any card having that character in column 1. 

Cont rol Card s: 

LIST requires no control cards. 

Input : 

Input consists of any deck which is to be listed. 
LIST will always return to the Inter-Job Supervisor 
(KE01A) on a last-card condition, or when a log-start 
card is read without the L option. 

OUTPUT: 

Output consists of 80-column card images printed on 
the 1403 printer, with output options as described in 
the paragraphs on Purpose, and Program Common. 

ERROR MESSAGES AND HALTS: 

Aside from the system standard halts and messages, no 
halts or messages should occur during use of LIST. 

OPERATING PROCEDURES: 

No special operating procedures are required. 
End-Of-Job, Post-Processing: 

LIST returns to the Inter-Job Supervisor on a last-card 
condition, or when a log-start card is read without the 
L option (see the paragraph on Program Common). No 
post-processing is required after use of LIST. 

PROCESSING METHOD — TECHNICAL DESCRIPTION: 



The program common field is first scanned to determine 
the options, if any, to be used. Then, if the H option 
is used, the first card is read and stored. An initial 
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"carriage-restore sequence" is done, with header line 
and/or page number if these options are used. Then, 
for each card, 

a) If the special-character option is used and the 
first column contains this character, a carriage- 
restore sequence is done. 

b) If the A option is used, the position-annotation 
line is set up. 

c) If the S option is used, the unprintable character 
annotation is set up. 

d) If either the S or A option is used, the line set 
up previously is printed. 

e) If the D option is used, a "double space after 
print" instruction is executed. 

f) If the N option is used, the card count field is 
moved into the print line and incremented, 

g) The card image is moved to the print line and the 
line Is printed. 

h) If a page overflow condition was encountered any- 
where in the above operations, a carriage-restore 
sequence is done. 

The above operations occur for each card until: 

a) a log-start card is read and the L option Is not 
being used, or 

b) a last-card condition is encountered. 
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PROGRAM: MLIST 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE 



MLIST is a card-to-printer program, producing multiple 
listings of card decks. 



RESTRICTIONS: 



The maximum number of copies is 99. 
The maximum deck size is 187 cards. 

Time, C ore Requirements : 

MLIST prints at the rate of 600 lines per minute. It 
is a mainline program, effectively using all of core 
during execution. 



PROGRAM PROCEDURE: 

Set-Up, Previous Proc es sing : 

Paper at least 8 1/2 inches wide must be mounted on 
the 1403 printer. 

Processing/Method : 

The program common field is examined. If the number 
of copies Is not present, the message "H0W MANY C0P.IES" 
Is typed. After the operator has entered the number of 
copies, the Input file is read Into core, until either 
a last-card or end-of-file condition is sensed (see 
below, End-Of-File Card). The printer carriage is 
restored, and the card file is listed the required num- 
ber of times. A carriage-restore is performed before 
each new copy is printed. 
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USAGE: 

Calling Sequence : 
Source of Call : 



MLIST is normally called by a log-start card, but may 
be called by use of the inter-job entry code D0, or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 



Program Common: 



The program common field should contain, right-justified, 
the number of copies to be generated. The maximum 
number of copies is 99. 



Control Cards: 



MLIST requires no control cards, unless other programs 
are in the job stream (batch mode). In that case, the 
End-of-File card is used. 



End-Of-Pile Card: 



This card is required when the call to MLIST is followed 
by a stack of decks. One End-of-File card must termi- 
nate the deck to be listed. The format is: 

Col. Content 



1-4 4 record marks 

(0-2-8 multiple-punch) 



Input : 



Input consists of the deck to be listed, terminated by 
an End-of-File card. 



OUTPUT : 



Output consists of the 80-80 listing(s), and possibly 
the message M H0W MANY C0PIES". 
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ERROR MESSAGES AND HALTS: 

Aside from the standard system halts and messages, only 
the following message may occur: 

H0W MANY C0PIES 

This message only appears if the number of copies is 
not present in the program common field. 

OPERATING PROCEDURES: 

Set-up is as described in a previous paragraph. If 
the message "H0W MANY C0PIES" occurs, the operator 
should enter this information from the console type- 
writer. The operator should be aware that MLIST always 
returns to the inter- job supervisor on a last-card 
indicator, after printing the previously-read deck. 

End-Of-Job, Post-Processing : 

MLIST returns control to the inter- job supervisor on 
a last-card indicator (or after reading a deck termi- 
nated by an end-of-file card), after printing the 
requested number of copies. 
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PROGRAM: REPR0 

MACHINE: IBM 1401 

LANGUAGE : Autocoder 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE 



REPR0 provides general purpose 80-80 reproduction of 
card decks on the 1403 card punch. Any combination 
of punches may be reproduced. There is no restriction 
on deck size. 



RESTRICTIONS: 

Time ? Core Req uirements : 

REPR0 operates at a rate of 250 cards per minute; it 
is a mainline program, effectively using all of core 
during execution. 

PROGRAM PROCEDURE: 

§£^z]IEjl- Pg.g-Vious Processing: 

There must be sufficient cards in the 1*103 punch hopper, 
£ £°^^s s ^g/Me t hod : 

Cards are read and punched in column binary mode. 
This removes any restrictions on the nature of the 
deck to be reproduced. Processing is terminated when 
a log-start card is read, or on a last-card condition. 
REPR0 punches one additional blank card at end-of-job 
to clear the punch. 



USAGE 



Calling Sequence^ 



REPR0 is normally called by a log-start card, but may 
be called by use of the inter- job entry code D0 , or by 
performance of a LINK macro from an AUT0C0DER or C0B0L 
program. 
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Control Cards : 

REPR0 requires no control cards. 

Input : 

The only Input consists of a card deck to be reproduced 

OUTPUT: 

Output consists of 80-column card images punched into 
a blank deck. 

ERROR MESSAGES AND HALTS: 

Aside from the standard system halts and messages, 
no halts or messages should occur. 

OPERATING PROCEDURES: 

REPR0 requires no special operating procedures. 
End-Of-Job, Post- P rocessing : 

REPR0 returns to the inter- job supervisor on an end-of- 
job condition (i.e., when a log-start card is read, 
or when the last-card indicator is sensed). One add- 
itional blank card is punched, eliminating the need 
for a non-process runout. 



1401 0. S. II 
I. D. # ZB02A 



PROGRAM: 

machine:: 
language: 

supervisor program, 
programmer: 
date completed: 



MREPR0 

IBM 1401 

AUT0C0DER 

1401 Operating System II 

Systems Division 

July 1, 1968 



PURPOSE: 



MREPR0 is a card-to-card program, producing multiple 
copies of card decks on the 1403 card punch. 



RESTRICTIONS 



The maximum number of copies is 99. 
The maximum deck size is 187 cards. 



Time, Core Requirements : 



MREPR0 punches cards at the rate of 250 cards per minute 
It is a. mainline program, effectively using all of core 
during execution. 



PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

There must be a supply of blank cards in the 1403 punch 
hopper. 



P rocessi ng/Method : 

The program common 
copies Is not pres 
typed. After the 
copies, the input 
a last-card or end 
punches the first 
second copy into s 
in this fashion un 
been punched. 



field is examined. If the number of 
ent, the message "H0W MANY C0PIES" is 
operator has entered the number of 
file is read into core, until either 
-of- file condition is sensed, MREPR0 
copy into the N/P pocket, and the 
tacker pocket 8, alternating pockets 
til the required number of cooies has 
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USAGE: 

Calling; Sequence 
Source of Call: 



MREPR0 is normally called by a log-start card, but may 
be called by means of the Inter- job entry code D0, or 
by execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 



Program Common: 



The program common field should contain, right-justified, 
the number of copies to be generated. The maximum 
number of copies is 99. 



Control Cards: 



MREPR0 requires no control cards, unless other programs 
are in the job stream (batch mode). In that case, the 
End-of-Pile card is used. 



End-of-Pile Card: 



This card Is required when the call to MREPR0 is followed 
by a stack of decks. One End-of-File card must terminate 
the deck to be reproduced. The format of this card Is: 

Col. Content 



1-4 4 record marks 

(0-2-8 multiple-punch) 



Input : 



Input consists of the deck to be reproduced, terminated 
by an End-of-File card. 



OUTPUT : 



Output consists of the duplicate decks, and possibly 
the message "H0W MANY C0PIES". 
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ERROR MESSAGES AND HALTS: 



Aside from the standard system halts and messages, only 
the following message may occur: 

H0W MANY C0PIES 

This message only appears if the number of copies Is 
not present in the program common field. 



OPERATING PROCEDURES: 



Set-up is as described in a previous paragraph. If the 
message "H0W MANY C0PIES" occurs, the operator should 
enter this information from the console typewriter. 
The operator should be aware that MREPR0 always returns 
to the inter-job supervisor, after reproducing a deck 
the requested number of times, on a last-card indicator 

End-Of-Job, Post-Processing : 

MREPR0 returns control to the inter-job supervisor on 
a last-card indicator (or after reading a deck termi- 
nated by an end-of-file card), on completion of the 
requested number of copies. 
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PROGRAM: C0LLAT 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE : 



C0LLAT performs most of the functions of a collator, 
with the additional capability of collating on large 
alphabetic fields. Collating is performed on the 1402 
Card Read/Punch at rates of 250 or 800 cards per 
minute. 



RESTRICTIONS: 



All restrictions are fully described below in the para- 
graphs on Usage and Program Procedure. 

Time, Core Requirements: 

C0LLAT reads cards at a rate of up to 800 cards per 
minute. When cards are being merged from the punch 
side, read speed drops to 250 cards per minute. 

C0LLAT is a mainline program, effectively using all of 
core during execution. 



PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

The 1402 card reader and punch must be cleared. The 
log-start card (if any), read-side control card, and 
primary file are placed in the card reader hopper; the 
punch side control card and the secondary file are 
placed in the card punch hopper. Then the console 
sense switches are set. 

Processing/Method : 

A detailed description of C0LLAT processing will be 
found below in the paragraph on Processing Method — 
Technical Description. 
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USAGE: 



Calling Sequence : 



C0LLAT Is normally called by a log-start card, but may 
be called by use of the inter-job entry code D0, or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 



Control Cards : 



C0LLAT requires two control cards: one for the punch 
side and one for the read side. They designate the 
control field to be used for their respective files. 
The control field may consist of a group of sub fields, 
which need not be sequentially located in the format 
of the input files. Subfields are listed on the con- 
trol cards in descending order of significance (i.e., 
high-order subfield to low-order subfield). Pour 
characters are required to define each subfield: the 
first two digits indicate the starting column, and the 
last two digits indicate the ending column. The read- 
side control field need not be identical to the punch- 
side control field, but must be the same length. The 
format of these cards is: 

Read-Side Control Card: 

Col . Content 

1- 72 The subfields of the control field, 

in ^-character blocks. 

(I- 2 *) (the first and last columns of the 
high-order subfield) 

(5-8) (the first and last columns of the 

next-highest-order subfield) 



(xx-xx) (the first and last columns of the 
low-order subfield) 

(73-7*0 The number of blank cards to be 

merged (if the Merge Blanks option 
is used). 

(76-80) MERGR 
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Punch-Side Control Card: 



Col. 
1-72 

73-75 
76-80 



Content 

The subfields of the control field, 
in 4~digit blocks (see above, Read- 
Side Control Card, columns 1-72; the 
same format is used). 

Blank 

MERGP 



Input to C0LLAT consists of the log-start card and the 
Read-Side Control Card followed by the primary input 
file in the reader hopper, and the Punch-Side Control 
Card followed by the secondary input file in the punch 
hopper. The operation to be performed is determined 
by the sense-switch settings. A full explanation of 
the sense-switch settings and their results is found 
below in the paragraph on Sense-Switches. 



Sense-Switches : 



The operation to be performed by C0LLAT is determined 
by the sense switch settings, as follows: 



Sense 

Switch Operation 



B 


on 


B 


on 


C 


on 


B 


on 


C 


on 


E 


on 


B 


on 


C 


on 


F 


on 


B 


on 


D 


on 



Straight Merge 

Merge Select Equals 
(Both Feeds) 



Merge Select Equals 
(Read Feed) 



Merge Select Equals 
(Punch Feed) 



2-Pocket Merge 



Result 

All cards 

Equals (Read) 
Unequals(Read) 
Equals (Punch) 
Unequals (Punch) 

Equals (Read) 
Unequals(Read) 
Equals (Punch) 
Unequals ( Punch ) 

Equals (Read) 
Unequals (Read) 
Equals (Punch) 
Unequals ( Punch ) 

Equals (Read) 
Unequals (Read) 
Equals (Punch) 
Unequals (Punch) 



- pocket 8/2 

- pocket 1 

- pocket 8/2 

- pocket 4 

- pocket 8/^ 

- pocket 1 

- pocket 8/2 

- pocket 8/2 

- pocket 8/2 

- pocket 8/2 

- pocket 8/2 

- pocket 4 

- pocket 8/2 

- pocket 8/ 

- pocket 8/2 

- pocket 8/2 

- pocket 4 
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Sense 
Switch 


Operation 


Result 




B on 
D on 
E on 


Merge Replace Equal: 


Equals (Read) 
Unequals (Read) 
Equals (Punch) 
Unequals (Punch) 


- pocket 1 

- pocket 2 

- pocket 8/2 

- pocket 4 


B on 
E on 


Merge Equals Only 


Equals (Read) 
Unequals (Read) 
Equals (Punch) 
Unequals (Punch) 


- pocket 8/2 

- pocket 1 

- pocket 8/2 

- pocket 4 


C on 


4-Pocket Match 


Equals (Read) 
Unequals (Read) 
Equals (Punch) 
Unequals (Punch) 


- pocket 1 

- pocket NR 

- pocket h* 

- pocket NP 


D on 


3-Pocket Match, SijLect 
(Read) 


Equals (Read) 
Unequals (Read) 
Equals (Punch) 
Unequals (Punch) 


- pocket 8/2 

- pocket 1 

- pocket 4 

- pocket *J 


G on 


Sequence Check 
(step-down) 


Error 
Others 


- pocket 1 

- pocket N/P 


G on 
F on 


Sequence Check 
(step-down and ecmal) 


Error 
Others 


- pocket 1 

- pocket NR 


B on 
G on 


Merge Blanks ! 
(after each card), 


All cards 


- pocket 8/2 


B on 
F on 
G on 


Merge Blanks 

(after Control Group) 


All cards 


- pocket 8/2 


OUTPUT: 









C0LLAT produces no output 
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A - 


Address 


1. 


111 


2. 


222 


3. 


333 



ERROR MESSAGES AND HALTS: 



Aside from the standard system halts and messages, the 
following halts may occur during execution of C0LLAT: 

Result 

No Read-Side Control Card. 

Insert control card, press start. 

No Punch-Side Control Card. 

Insert control card, press start. 

Read-side control field is not the 
same size as the punch-side control 
field. Insert corrected control 
cards, and press start. 

4. 888 No sense-switches are set. Set con- 

sole sense switches and press start 
to begin the program again. 

5. 777 Number of blank cards not specified 

on control card, for merge-blanks 
options. Press start to begin the 
program again. 

Sequence error in the merge-blanks- 
after-control-group routine. 

Sequence error in the read-side file. 
Press start to read the next card. 

Sequence error in the punch-side file. 
Press start to read the next card. 

End of job. Press start for a new 
job. 



OPERATING PROCEDURES: 



Set-up is as described in a previous paragraph. Operat- 
ing procedures consist of the following steps: 

Set console sense-switches. 



6. 


969 


7. 


842 


8. 


124 


9. 


999 
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Place the following cards in the read hopper: 

a) log-start card 

b) read-side control card 

c) primary card file 

Place the following cards in the punch hopper (if 
applicable) : 

a) punch-side control card 

b) secondary card file 

The switch settings and their results will be printed 
on the 1403 printer. Set the appropriate switches and 
press START. If no switches are set the machine will 
halt. Pressing start will return the program to the 
sense-switch testing routine. 

Errors in sequence will cause halts. Pressing start 
will read another card and drop the error card in the 
normal read or normal punch pocket. 

If the read side control field is not the same size as 
the punch control field, the program will halt. Push- 
ing start will start the program over again. 

Errors in sequence using the sequence check option will 
be selected into pocket 1. 

All options, except merging blanks option, require four 
blank cards at the end of each file. The merge blanks 
option must have exactly one blank card at the end of 
the read-side file. At the end-of-job the program will 
halt. The program can then be restarted by pushing 
start. 

End-Of-Job, Post-Processing : 

C0LLAT returns to the inter- job supervisor. 

PROCESSING METHOD — TECHNICAL DESCRIPTION: 



C0LLAT sets up a control field based on the size of each 
sub field. It compares punch-side and read-side and 
then stacker selects the files into appropriate pockets 
based on sense-switch settings. All address adjustment 
is done by brute force, using no indexing or store 
registers. 
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Additional options (of the match-merge type) should 
easily be added. It is necessary only to understand 
the logic of testing each feed, and to follow the 
instructions used for a particular option. 

The program compares a card from the read-side to a 
card from the punch-side. If the read-side is low, the 
read-side card is stacker selected and another card is 
read. This card is then compared to the previous read- 
side card. If the comparison is equal, the read-side 
card is selected, another card is read, and the compar- 
ison repeated. If the new card is high, a new compar- 
ison is made between the punch-side and the read-side. 
If the new card is low, there is an error in sequence 
and the program halts, and reads another card when 
restarted. 

If the punch-side is low, the punch-side card is select- 
ed, and a new card is read. If equal, the selection is 
performed again. If high, a new comparison is made 
between the punch-side and the read-side. If low, 
there is an error in sequence. 

If the two sides are equal, first the read-side card is 
selected, and a new card is read and properly handled 
as above. Once the new read-side card is high, the 
punch-side card is selected, and a new read-side card 
is read and properly handled. Once the new punch-side 
card is high, a new comparison is made between the 
punch-side and the read-side. 

Thus, there are four unique stacker selections in the 
routine: a selection for the read-side if it is low; 
a selection for the read-side and a selection for the 
punch-side if the sides are equal; and a selection for 
the punch-side if it is low. 

The punch- feed does not feed cards at the same rate as 
the read- feed. There must be a time delay before a 
card from the read-side may be allowed to fall, after 
a card from the punch-side has fallen. This allows 
the card from the punch-side to stack before the card 
on the read-side. This applies only if the card from 
the punch-side and the card from the read-side are 
selected into the same pocket. 
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If no delay is provided, the read-side card will 
arrive before the punch-side card. The delay routine 
is performed immediately prior to a read instruction, 
if a switch is set. The switch is set after a punch 
command if the sequence of cards on the punch-side is 
high. 

The instruction to set the switch is either deleted 
or made active in the routine defining the option. 
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PROGRAM: REC0DE 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



REC0DE is a general character-set-exchange program for 
card files. As many distinct characters as desired can 
be transformed into other characters during one use of 
REC0DE. Any combination of punches whatsoever can be 
used as an "input" or "output" character in any of the 
transformations: REC0DE operates on a column-binary 
basis. The transformations to be done are specified 
on control cards, with the input deck being reproduced 
with the indicated modifications. 



RESTRICTIONS: 



Care should be taken in normal REC0DE usage to avoid 
loss of distinction between characters distinct in the 
input deck. In a true character-set conversion, any 
character that appears as an output character in one 
transformation should appear as an input character in 
another. 

Time, Core Requirements : 

Processing rate decreases rapidly as the number of 
transformations increases. For a single transforma- 
tion, the rate is approximately 200 cards/minute. 

REC0DE is a mainline program, effectively using all of 
core during its execution. 



PROGRAM PROCEDURE: 

Set-Up, Previous Pro c essing : 

A sufficient number of cards to reproduce the input 
deck should be present in the punch hopper. 
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Proc es sing /Meth od : 

The two control cards are read, and the specified trans- 
formations are stored, until a card column is found in 
which both control cards contain blanks. 

A data card is read, and scanned for a match with the 
input characters. If a match is found, that character 
is replaced with the corresponding output character. 
The card is then punched. This process continues until 
a log-start card is read or a last-card condition is 
sensed. 



USAGE 



Calling Sequence : 



REC0DE is normally called by a log-start card, but may 
be called by means of the inter- job entry code D0, or 
by a LINK macro from an AUT0C0DER or C0B0L program. 
The program common field is not used. 



Control Cards: 



Input 



Two control cards are required. The first specifies 
the one or more characters which are to be scanned for 
and replaced (the "input" characters). The second spec- 
ifies the characters with which the "input" characters 
are to be replaced in the reproduced deck (the "output" 
characters). The input and output characters must 
appear In corresponding columns of their respective 
control cards. The end of the transformations to be 
performed is identified by a column in which both cards 
contain blanks. 

Thus the N columns encountered on the pair of control 
cards, before a blank-blank correspondence, define N 
transformations to be performed: any occurrence of any 
of the Input characters In the input deck will be re- 
placed by the corresponding output character. 



The input deck should immediately follow the pair of 
control cards. 
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OUTPUT : 



REC0DE produces a deck which is identical to the Input 
deck except for the transformations indicated on the 
control cards. 



ERROR MESSAGES AND HALTS: 

Only the system standard halts and messages may occur 
during execution of REC0DE. 



OPERATING PROCEDURES: 

No special operating procedures need be specified. 

End-Of -Job ^Pqs t-P ro ces s ing : 

REC0DE returns control to the Inter-Job Supervisor via 
an EXIT macro on a last-card condition, and executes 
any log-start card encountered in the input deck. 
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PROGRAM: TLIST 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



TLIST is a tape-dump program for records of 132 char- 
acters or less. Records in either binary (odd-parity) 
or BCD (even-parity) format may be listed, in any 
mixture. 



RESTRICTIONS: 



Ti me, C ore Requi rements : 



Execution time for TLIST varies according to the num- 
ber of records listed. TLIST is a mainline program, 
effectively using all of core during its execution. 



PROGRAM PROCEDURE: 



Set- Up, Previous Processing: 

No previous processing is necessary for use of TLIST. 
The input tape is assumed to be on drive 2. 14 inch 
wide paper should be used in the 1403 printer, as the 
listing produced is 132 characters wide. 

Processing/Method : 

The tape on unit 2 is rewound, and the following ensues 
for each record: 

1. The annotation line is printed. 

2. The record Is read in BCD mode with word marks. 

If there is no error, the data and word mark 
lines are printed, and the fourth line is 
spaced. 

If there is a tape error, 

3. The record is backspaced over. 
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4. The record is read in binary mode without word 
marks . 

If there is no error, the data line and the 
"BIN" line are printed, and the fourth line 
is spaced. 

If there is a tape error, 

5. A line that is blank except for "ERR" in positions 
130-132 is printed, and the third and fourth lines 
are spaced. 

Neither halts nor retries are performed on an actual 
tape error. On an EOF indication, either a tape mark 
or a reflective spot sensed, "EOF" is printed in 
130-132, the carriage is restored to a new page, and 
the program halts. Printing of any records beyond 
the EOF can be accomplished by pressing START at this 
point. 



USAGE 



C alling Sequence : 

TLIST may be called by a log-start card, by a LINK 
macro from an AUT0C0DER or C0B0L program, or by means 
of the inter-job entry code D0. The program common 
field is not used. 

Co ntro l Cards : 

TLIST requires no control cards. 

Input : 

The only input to TLIST consists of the tape on unit 2 
OUTPUT: 



Each tape record produces output comprising four lines: 

1. Guideline — provides positioning annotation 

2. Data 

3. a. for BCD records — word marks if any 

b. for binary records — blank except for "BIN" 
In positions 3 30-132 

4. Blank line 
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No indication is provided in the output of the length 
of the tape record, nor are group marks or other 
unprintable characters indicated in any fashion. 



ERROR MESSAGES AND HALTS: 



Aside from the standard system disk halts and messages, 
the "BIN, "ERR, and "EOF" lines described previously 
are the only halts and messages. 



OPERATING PROCEDURES: 



No further operating procedures need be given: 
TLIST uses no sense switches or peripherals other 
than the 1403 printer and tape unit 2. 

End-0f-Job , Post-Processing : 

End-of-job indication consists of the "EOF" line at 
a point where printing is not to be continued. TLIST 
does not EXIT or LINK. 
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PROGRAM: TDUMP 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



TDUMP is a tape-to-printer routine, listing the 
contents of a BCD tape on the 1403 printer, with 
positional annotation. 



RESTRICTIONS: 



Time, Core Requirements : 



TDUMP prints at the rate of 600 lines per minute; 
it is a mainline program, effectively using all of 
core during execution. 



PROGRAM PROCEDURE: 



Set- Up, Previous Processing : 

The BCD tape to be dumped may be mounted on any of 
the tape drives. The drive is selected by means of 
sense switch settings (see below, Sense Switches). 

Processing/Method : 

TDUMP displays the sense switch settings and their 
results on the 1403 printer, and then halts. After 
the switches have been set and the program restarted, 
the contents of the requested tape are printed on the 
1403 printer. 
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USAGE: 



Calling Sequence : 

TDUMP is normally called by a log-start card, but may 
be called by means of the inter- job entry code D0, or 
by execution of a LINK macro from an AUT0C0DER or 
C0B0L program. 

Control Cards : 

TDUMP requires no control cards. 

Input : 

The only input to TDUMP consists of the BCD tape, 
mounted on the tape unit specified by. the sense switch 
settings, as described below. 

Sense Switches : 

Sense switches B, C, and D are used to determine the 
tape input unit. Switch B » 1, C = 2, and D = 4, the 
tape unit being determined by addition of these values. 
Switch E is off to allow special format for 80-character 
records; switch P is on to force this special format. 

OUTPUT: 



Printed output for both normal format and 80-character 
special format consists of: 

a) the sense switch settings and their results. 

b) the tape unit providing input. 

Then, for 80-character records, 

c) two annotation lines, followed by a blank line, 
specifying the 80 positions of the printed record, 
in the form: 

0000 ... 77778 
1234 ... 67890 

d) the 80-character records. At the extreme right 
end of each printed line the file/record count 
appears (see below, Record Count). 
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For other than 80-character records, 

c) an annotation line, numbering the positions of 
the 100-character printed line, and giving the 
record count for that record (see below, Record 
Count). 

d) the contents of the record, 100 characters to the 
line. Each line is tagged with a value indicating 
the location of the right most character of that 
line within the record. (100, 200, 300, etc.). 



Record Count: 



This is a value appearing at the extreme right end of 
the page. It is on the record print line for 
80-character records, and on the annotation line for 
other records. It is of the form: 

N-XXXXX 

where N is the file number (number of tape-mark halts 
plus one), and XXXXX is the record number within that 
file. 



ERROR MESSAGES AND HALTS: 



All messages are self-explanatory. A halt occurs 
whenever a tape-mark is read (see below, Operating 
Procedures). 



OPERATING PROCEDURES: 

At the tape-mark halt, the operator has three options: 

a) reading beyond the tape-mark, by pressing Start. 

b) changing the input drive by changing the logical 
drive numbers on the tape units and pressing Start, 

c) returning to the inter- job supervisor, by pressing 
Start/Reset and Start. 

If option a) above is selected, a log-start card must 
be loaded to return to the inter-Job supervisor. 
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End-Of-Job, Post-Processing : 

If option c) in the preceding paragraph is selected, 
TDUMP returns control to the inter- job supervisor and 
rewinds the tape. Otherwise control must be returned 
by means of a loaded log-start card, and the tape 
rewound manually. 
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PROGRAM: DC0PY 

MACHINE: IBM 1*401 

LANGUAGE: Autocoder 

SUPERVISOR PROGRAM: 1401 Operating System IT 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



DC0PY, when executed, will copy the disk pack on a 1311 
disk drive onto a tape on tape unit 2. 



RESTRICTIONS: 



'ime, Core Re quirements: 

Time requirement varies with the number of mode changes 
and the mode, in general, of the disk. Execution is 
less than 15 minutes on the average. 

DC0PY is a mainline program and effectively uses all 
of core during execution. 



PROGRAM PROCEDURE 



No previous processing is necessary for use of DC0PY. 
The disk pack to be copied should be on the opposite 
drive from the Operating System pack. 

Processing/Method : 

DC0PY first determines which disk is to be copied to 
tape, by use of the program common field. A disk track 
is read. If a mode error occurs, the track is reread 
in the other mode. If the mode of the track was move, 
only the control header and move-mode record are writ- 
ten. Otherwise, the area is cleared to a blank word 
mark skeleton and a load-mode record is generated. The 
track is then reread and the move-mode record is 
generated. 
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USAGE 



Calling Sequen c e : 
Source of Call: 



DCOPY Is normally called by a log-start card, but may 
be called by means of the Inter-job entry codes 0C, DC, 
or DO, or by execution of a LINK macro from an AUT0C0DER 
or C0B0L program. 

Program Common: 

The drive code of the disk drive to be copied to tape 
must appear, left justified, in the program common 
field, (i.e. or 2) 

Control Car ds : 

DC0PY requires no control cards. 
Input : 

The only input consists of the disk pack to be copied. 

OUTPUT: 

The output from DC0PY consists of a tape containing: 

a) header information consisting of an I0CS header. 

b) copy control records. 

c) move or load mode records of complete disk tracks. 

d) move or load mode records of disk sectors. 

e) an I0CS trailer. 

The format of the I0CS header is type "B" ( 80-positions) , 
with the identification "DISK COPY." 

The copy control record is a move-mode BCD 30-character 
record containing the following information: 

a) T--the next record is a complete track. 
S — the next record is a sector. 

b) L — the next record is in the load-mode. 
M — the next record is in the move-mode. 

c) The actual sector address. 

d) The natural sector address. 
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For each load-mode track copied, there are three tape 
records generated: 

a) the copy control record. 

b) the BCD load-mode work mark skeleton. 

c) the move-mode binary disk data. 

When a track is in move-mode, only the BCD move-mode 
binary record is generated. 

When a track consists of mixed mode sectors, the same 
type of records are written as were read. However, 
the length of each sector record as written is 110 
positions . 



ERROR MESSAGES AND HALTS 



Three types of halts and messages may occur during 
execution of the disk copying program: 

a) the systems standard halts and messages, 

b) I0CS halts, described in the IBM publication 
C24-3298 (Input/Output Control System — Disk, 
Operating Procedures. IBM File No. 1401/1460-30) , 

c) halts and messages specific to the disk copying 
program. 

Only halts and messages of type c) will be discussed 
here : 

0. TURN C0MPARE DISABLE SWITCH 0N 
TURN WRITE ADDRESS KEY ON 

M0UNT DISK T0 BE C0PIED 0N DRIVE n 
M0UNT TAPE T0 BE C0PIED 0NT0 0N DRIVE 2 
This message is for the information of the 
1401 operators. 

1. DRIVE C0DE N0T SPECIFIED IN C0MM0N 

This message states the cause for the return 
to the operating system. 

2. TRACK BEGINNING AT xxxxxx UNC0PYABLE 

This message indicates that a parity error 

existed when the track was read in both modes. 

3. TURN C0MPARK DISABLE SWITCH 0FF 
TURN WRITE ADDRESS KEY 0FF 

This message is for the information of thf j'lOl 
operator. 
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4. PARITY ERR0R 0R 0THER BAD NEWS AT SECT0R xxxxxx 
N0T C0PIED 

This message indicates that , at the sector level, 
the sector was found to be damaged. 



OPERATING PROCEDURES: 

Set-up is as noted in a previous paragraph. Special 
operating procedures are fully specified in the messages 
to the operator (see Error Messages and Halts, messages 
and 3). Messages 1, 2, and 4 are the concern of the 
user. 

End-Of-Job, Post-Processing : 

Normally, the rewound tape on unit 2 would be dismounted 
and returned to the user. Control is returned to the 
inter-job supervisor on completion. 
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PROGRAM: RESTR 

MACHINE: IBM 1*101 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1*101 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



RESTR Is a general tape-to-disk: program, designed to 
restore the content of a disk pack from a tape copy 
previously produced by the program DC0PY (ZD01A). 



RESTRICTIONS: 



Time, Core Require men ts 



Time requirement varies with the number of mode changes 
and the mode, in general, of the tape. Execution re- 
quires less than. 5 minutes, on the average. RESTR Is 
a mainline program and effectively uses all of core dur- 
ing execution. 

PROGRAM PROCEDURE: 

S et- Up, Previous Processing : 
General Usage: 

The tape to be copied to disk should be mounted on tape 
drive 2. The disk pack to be restored should be mount- 
ed on the drive opposite the Operating System Pack. 

Operating System Restoration: 

V/hen the Operating System has been damaged, a special 
set-up is required. Set-up and procedure details 
will be found below in the paragraph titled Operating 
System Restoration Procedures. 
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Processing/Method 



The program common field is examined to determine which 
drive contains the pack to be restored. Then the tape 
Is opened, and the copy control record Is read. Prom 
this record the type (track or sector) and mode of the 
succeeding record(s) is (are) determined. From this 
point on, the process is a step-by-step Inversion of 
that used by DC0PY (ZD01A). 



USAGE: 

Calling Seq uen ce : 
Source of Call: 



RESTR is normally called by a log-start card, but may 
be called by use of the inter-job entry code D0, or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 



program. 
Program Common: 



The drive code of the disk drive containing the pack to 
be restored, either or 2, must be placed In the pro- 
gram common field, left-justified. 



Control Cards : 

RESTR reouires no control cards. 



Input : 



The only input consists of the tape to be copied. 



OUTPUT 



The tape records written to disk are controlled by 
the copy control records. They may be in load-mode, 
move-mode, or mixed. 
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ERROR MESSAGES AND HALTS: 



Three types of halts and messages may occur: 

a) the system standard halts and messages, 

b) I0CS halts, as described in IBM publication C24-3298 
(Input/Output Control System — Disk, Operating 
Procedures. IBM File No. 1401/1460-30) , 

c) halts and messages specific to the disk restoration 
service. 

Only halts and messages of type c) will be discussed 
here: 

0. M0UNT PACK T0 BE REST0RED 0N n 
M0UNT PREVI0USLY C0PIED TAPE 0N 2 
TURN C0MPARE DISABLE SWITCH 0N 
TURN WRITE ADDRESS KEY 0N 

This message is for the information of the 1401 
operator. 

1. DRIVE C0DE N0T SPECIFIED IN C0MM0N 

This message states the cause for the return to 
the operating system. 

2. THE P0SSIBILITY EXISTS THAT THE 

.TRACK A ( s ) STARTING AT xxxxxx 

{ SECTOR * 
HAS (HAVE) BEEN BYPASSED 

Due to tape read errors or other reasons the disk 
track/sector may not have been restored. 

3. TURN C0MPARE DISABLE SWITCH 0PF 
TURN WRITE ADDRESS KEY 0FF 

This message is for the information of the 1^01 
operator. 



OPERATING PROCEDURES 



General Usage : 

Set-up is as noted in a previous paragraph. 
Normally, the rewound tape will be dismounted and 
returned to the user. Messages and 3 provide 
information to the operator; 1 and 2 are the con- 
cern of the user. 
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Operating System Restoration Proce dures : 

If the Operating System has been destroyed, the 
following procedure should be followed: 

a) run HELP (KE03A), the emergency log-dump 
routine. 

b) mount the Operating System backup tape on 
tape unit 2. 

c) mount the Operating System disk pack on disk 
drive 2 (the left-hand module). 

d) clear the card reader. 

e) place the card function RESTR in the reader 
and press L0AD, with sense switch A on. Be 
sure that no decks or cards follow this object 
deck. 

End-Of-Job, Post-Processing: 

RESTR returns control to the inter- job supervisor 
on an end-of-job condition. 
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PROGRAM: CLRDSK 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: IBM 

DATE COMPLETED: 



PURPOSE 



CLRDSK clears disk areas as defined in area-definition 
control cards. The user must provide the CTL and area- 
definition control cards. . 



RESTRICTIONS: 



No header operations may be performed 



USAGE: 



Calling Sequence: 



CLRDSK is normally called by a log-start card, but may 
be called by use of the inter-job entry code D0, or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 



NOTE : 



For further information, see the following IBM publi- 
cations, where this program is described as CLEAR DISK: 

Disk Utility Programs, 1401/40/60 C24-1484 

Disk Utility Programs, Operating Procedures C24-3105 
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PROGRAM: PRDSK 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: IBM 

DATE COMPLETED: 



PURPOSE: 



PRDSK lists disk areas as defined in area-definition 
control cards. The user must provide the CTL and 
area-definition control cards. 



RESTRICTIONS: 



No header operations may be performed 



USAGE: 



Calling Se quence : 



PRDSK is normally called by a log-start card, but may 
be called by use of the inter-job entry code D0, or by 
execution of a LINK macro from an AUT0C0DER or C0B0L 
program. 



NOTE: 



For further information, see the following IBM publi- 
cations, where this program is described as PRINT 
DISK: 

Disk Utility Programs, IBM 1*401/40/60 02*1-1 W 
Disk Utility Programs, Operating Procedures C24-3105 
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PROGRAM: DALTR 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



DALTR provides the user with the ability to view and/or 
correct a disk sector. 



RESTRICTIONS: 



Time 5 Core Requirements : 



Execution time depends directly on the number of sectors 
viewed and changes made. DALTR is a mainline program, 
effectively using all of core during execution. 



PROGRAM PROCEDURE: 



Set- Up, Previous Processing : 

No previous processing is necessary for use of DALTR, 
except that the Operation System Pack must be mounted. 

Processing /Method : 

The DALTR program requests the drive code, sector add- 
ress, and mode from the user. With this information 
DALTR constructs a disk control field and reads the 
specified sector into storage. If the mode is wrong or 
an address check occurs, messages to that effect are 
typed. If the read is successful, the sector is typed 
and the user may correct it. In the case of a correct- 
ion the sector is written back to disk. 



USAGE: 



Calling Sequence : 

DALTR is normally called by a log-start card, but may 
be called by means of the Inter-job entry code D0, or 
by a LINK macro from an AUT0C0DER or C0B0L program. 
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Con trol Car ds : 

DALTR requires no control cards. 

Input : 

Input consists of responses to requests by the program, 
via the console typewriter. Details appear below in 
the paragraph on Operating Procedures. 

OUTPUT : 



DALTR produces no output except the viewed and/or cor- 
rect disk sector. 



ERROR MESSAGES AND HALTS: 

Two types of halts and messages may occur during the 
execution of DALTR. 

a) the system standard halts and messages. 

b) requests and the disk sector. 

See the following paragraph on Operating Procedures. 

OPERATING PROCEDURES: 

The operating procedures consist of responding to the 
following typed requests: 

a) The system types 

TYPE DRIVE C0DE, ADDRESS 

The user responds with R/E (pressing the request/ 
enter key), then typing the one digit drive code 
followed by the six digit sector address. The res- 
ponse is completed with R/T (pressing the respond/ 
typeout key). 

b) The system then types 

TYPE M0DE, M 0R L 

The user responds with R/E, then types an M or an 
L and finishes with R/T. 
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c) The system then types 9 or 10 rows of 10 characters 
each. These rows contain the contents of the disk 
sector under investigation. Ten rows are typed if 
the sector was in the move-mode. Nine rows are 
typed if the sector was in the load-mode. 

d) The system then types 
TYPE SECTION 



C 01-10 7 
£01-09J 



The user looks at the typeout and decides which 
section he wants to change. He then responds with 
R/E, types the two-digit section number, and fin- 
ishes with R/T. 

e) The system types 

TYPE CHANGE 

The user responds by R/E, typing his change, and 
finishing with R/T. 

f) The procedure reverts to step c. 

When the user has completed alteration of a sector, he 
presses R/E and R/T consecutively without entering a 
section number (see step e), in which case the operation 
reverts to step a. When all desired sectors have been 
reviewed, the user merely hits R/E and R/T and control 
returns to the Operating System. 

Corrections may exceed the selected section. If the 
sector to correct is in the load-mode and the user 
wishes that a word mark be entered, he must depress 
the W0RD MARK key for each word marked character. The 
user may type an A-bit character when he desires to 
retain characters. 

As in all 1^01 operations, if the user makes a typing 
error he may correct it by depressing the CLEAR key, 
in which case the system returns to the beginning 
type-in operation. 

End-Of-Job, Post-Processing: 

After pressing R/E and R/T, DALTR returns control to 
the inter- job supervisor. 
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PROGRAM: ALINK 

MACHINE: IBM HlOl 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PRUPOSE: 



The ALINK macro, when executed, causes a program to be 
loaded from the 1401 Operating System library, and 
control to be transferred to that routine. The purpose 
is similar to that of the LINK macro (KF14A), except 
that the disk location of the program block to be call- 
ed must be known In order to use ALINK. The advantage 
of ALINK is that it requires far less core than the 
LINK fixed routines L0DER and L0ADR. 

RESTRICTIONS: 

No check is performed to verify that the disk sector 
addressed by the operand actually contains the header 
record of a program block. 

The following restrictions exist in comparison to a 
LINK macro: 

a) the usage statistics of the called program are not 
updated. 

b) the program common facility is not available. 

c) no variability of the execution address after load- 
ing is available. 

d) the point at which execution is begun after loading 
is the same point at which execution was begun last 
time the program was loaded. Thus a program to be 
called by an ALINK macro should not be FETCHed or 
otherwise loaded with any execution address other 
than the normal execution address of the program. 

Time, Core Jteo^ujj^ment^: 

If group-mark word-marks are to be restored in the call- 
ed program, execution time for the ALINK macro will be 
between 3 and 25 seconds. If group-mark word-marks are 
not to be restored, execution time is less than 2 sec- 
onds. ALINK is slightly faster than the corresponding 
LINK. 

Core requirement is 129 positions. 



1401 0. S. II 
ALINK - p. 2 



PROGRAM PROCEDURE: 

Set-Up , Previous Proces sing : 

The Operating System Pack should be on one of the 1311 
disk drives at execution time. If it is not, the system 
halts, and may be started when the pack is mounted. 

The programmer may write an ALINK macro at any point 
during his processing. 

Proce ssin g/ Method : 

ALINK attempts to read the first sector of the loader 
of the specified program into the card read area, from 
disk module 1. If this fails, the attempt is made on 
module 0. If both attempts fail, the system halts. 
When either attempt succeeds, control is transferred 
to the instructions read from the disk. The definition 
of "failure", in this context, is simply an incompat- 
ible sector format (i.e. either move-mode or non-address- 
protected). Thus if the operand specifies a secto r whic h 
i s not the start of a program, the macro itself cannot 
detect this and the results are unpredictable: a pro- 
cess check will probably result. 

USAGE: 



Operands : 

The ALINK macro uses only one operand: the 5-digit 
sector address of the header sector of the program to 
be called. This should be written as an actual oper- 
and (not enclosed in quotes as a literal, or given in 
a DCW elsewhere) and can lie in the range of 10000 to 
19790. This should be the same value that was used as 
operand 11 of the DL0AD macro (KP06A) which loaded the 
program in question to the Operating System library. 

Cont rol C ard s: 

The ALINK macro uses no control cards. 
Input : 

The ALINK macro uses no input. 
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OUTPUT : 



The ALINK macro produces no output. 



ERROR MESSAGES AND HALTS: 



Only the standard system halts and messages may occur 
during execution of the ALINK macro. 



OPERATING PROCEDURES : 



Aside from the fact that the correct Operating System 
pack must be mounted if a halt occurs, and the halt 
then started, no special operating procedures need be 
followed. 

End-Of-Jo b, Post-Processing: 

The macro transfers control to the loader of the speci- 
fied program when it has successfully read the loader 
from disk. 
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PROGRAM: CDSN 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 140.1. Operating System II 

PROGRAMMER: Systems Division 



DATE COMPLETED: 



July 1, 1968 



PURPOSE 



The CDSN macro, when executed, will compute the check 
digit of a given nine digit student number, and then 
test the given check digit against the computed check 
digit. 



RESTRICTIONS: 



Time, Core Requirements: 



Execution time for the CDSN macro is about 50 milli- 
seconds. Each time a CDSN macro is used, 259 posi- 
tions of core are generated. 



PROGRAM PROCEDURE 



Set-Up A _Previous Processing : 

No special set-up or previous processing is required. 

Processing/Met hod : 

Digits 4-9 of the student number are added triangular- 
ly to a sum box, this process being repeated for" 
digits 1-3. This sum, modulus 11, "gives the computed 
check digit. The computed and given check digits are 
compared. If they are found to "be unequal, control is 
transferred to a user routine. Otherwise control 
returns to the next instruction following the macro. 
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USAGE 



Operands : 

Operands 1 and 2 of CDSN are required; no other oper- 
ands are used. 

1. Ten Digit Student Number 

This operand gives the location of the student 
number and check digit. It may be a 10 digit 
literal or an indexed/adjusted tag. 

2. Failure Exit 

This operand contains the address of the user 
routine which will process the student record in- 
formation if the given student number is found to 
be incorrect. 

Control Cards: 

The CDSN macro uses no control cards. 
Inp ut: 

The CDSN macro uses no input. 

OUTPUT: 

The CDSN macro produces no output. 

ERROR MESSAGES AND HALTS: 

Only the system standard halts and messages may occur 
during execution of the CDSN macro. 

OPERATING PROCEDURES: 

No special procedures need be specified. 
504~ f ^o^ A _Po s t - Pr o c e s s i n g : 

Control is transferred either to the next sequential 
instruction, or to the given user routine In the case 
of an incorrect student number (failure exit). 
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PROGRAM : CMADD/CMPAD 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The CMPAD macro, when executed, causes two 1401 machine 
language addresses to be compared according to address 
sequence. The appropriate indicators (low, equal, high, 
unequal) are set, depending on the result of the compar- 
ison. Appropriate conditional branch instructions 
should be provided by the programmer following the CMPAD 
macro, according to the logic of his program. The CMPAD 
macro sets up linkage to the inflexible routine CMADD, 
which does the actual comparison and returns control to 
the next sequential instruction following the CMPAD 
macro. 



RESTRICTIONS: 



If an address compared by means of a CMPAD macro contains 
an index tag, the contents of the index register are not 
taken into account in the comparison. This obstacle may 
be avoided by use of a 2-address SBR instruction immed- 
iately preceding the CMPAD macro. 

No responsibility is taken as to the results if one or 
both of the address fields compared is not a valid l401 
address: i.e., contains a numeric part which is blank 
or greater than 9 in binary value. 

Time, Core Requirements : 

Execution time for the CMPAD sequence, including the 
processing done in CMADD, is 1.69 milliseconds plus 
.04 milliseconds for each operand which is indexed. 

The CMPAD generated code occupies 34 positions. The 
CMADD routine occupies 61 positions; it is generated 
only once, regardless of the number of CMPAD f s written 
or of literal origins in the program. 
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PROGRAM PROCEDURE: 



Set-Up a Previous Process ing : 

No special set-up or previous processing is required 
to use the CMP AD macro, except that the two addresses 
to be compared must exist at execution time. The pro- 
grammer may write a CMPAD macro at any point during 
his processing. 

Process in g /Meth od : 

A detailed description of CMPAD processing is found 
below in the paragraph on Processing Method — 
Technical Description. 



USAGE : 



The CMPAD macro requires operand 1 and operand 2. 
These operands are of the same form as the operands of 
a normal compare instruction, giving the locations of 
the two addresses to be compared. The way in which 
indicators are set, based on the address fields at the 
A and B addresses, is also identical to that of a nor- 
mal compare instruction. The referenced address fields 
need not contain word-marks in the hundreds position, 
and should not contain word-marks in the tens or units 
position. 

Control Ca rds : 

The CMPAD macro requires no control cards. 
: I nput : 

The CMPAD macro uses no input. 

OUTPUT: 

The CMPAD macro produces no output. 
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ERROR MESSAGES AND HALTS: 



No halts or messages may occur during execution of 
either CMPAD or CMADD. 



OPERATING PROCEDURES: 

No special operating procedures need be specified. 

End-O f-Job, P ost-Processing. : 

Control is transferred to the next sequential instruct- 
ion following the CMPAD macro, where the programmer 
may code conditional branch instructions appropriate 
to the logic of his program. 

PROCESSING METHOD— TECHNICAL DESCRIPTION 



The CMPAD linkage to the fixed routine CMADD consists 
of moving the addresses to be compared into the CMADD 
routine and then branching into the routine. CMADD 
saves the return point and then transforms the 
addresses into two five-character fields, referred to 
as A 1 h2&2&H&5 and B-^B^B^, in the following fashion: 

a) The numeric parts of the A-field address are moved 
under blank zones at A^AhAc, in the same left-to- 
right order as in the address. 

b) The numeric parts of the B-field address are moved 
under blank zones at B3B11B5, in the same left-to- 
right order as in the address. 

c) The hundreds-position zone of the A-field address 
is moved over a zero numeric at B2. 

d) The hundreds-position zone of the B-field address 
is moved over a zero numeric at A2. 

e) The ones-position zone of the A-field address is 
moved over a zero numeric at B^. 

f) The ones-position zone of the B-field address is 
moved over a zero numeric at A^. 

The two fields thus created are compared using a normal 
compare instruction, with Bj^BoBijBc; as the B-field, and 
control is returned to the next sequential instruction 
following the CMPAD macro. 
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PROGRAM: C0RE 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE : 



The C0.RE macro, when executed, produces an annotated 
printout of the contents of 1401 storage: a "core 
dump". This may be useful if a program has detected 
an "impossible" or otherwise troublesome condition 
outside the framework of its logic, as in certain 
types of abnormal end-of-job conditions. Execution 
of C0RE disturbs/alters only positions 201-332, and 
execution of the program proper will be resumed on 
completion of the printout. 



RESTRICTIONS: 



Non-printable characters other than group-marks are 
not annotated. 

Time, Co re Requirem ents^ 

Execution time is approximately two minutes. Core 
requirement is 575 positions. 

PROGRAM PROCEDURE: 

Set- Up, Prev io us Processing : 

The only set-up required for C0RE is 14 inch wide paper 
on the 1403 printer. 

No special previous processing is required for use of 
C0RE. The programmer may write a C0RE macro at any 
point in his program. 
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Processing/Method : 

For each 100 characters: 



a) 
b) 
c) 
d) 



the^word-mark status of the XXX01 position is 

position^"" WOrd " mark is set at the XXX01 

?«?«*?£* fr ? m . XXX01 throu gh XXYOO is loaded 
into the print area. 

^ WOr 5"? ai * Status of the X XX01 position is 

the character line is printed, 
the word-mark line is printed, 
the annotation line is set up 
h) positions XXX01 through XXYOO are scanned for 

StlSnTS'. 8 " 4 ' G ' S are ^serted in ?he fnno- 
ration line as appropriate. 

i the annotation line is printed. 

0) a line is spaced on the printer. 



e) 
f) 
g) 



USAGE: 



Operands : 

C0RE requires no operands. An nf ™™> «„ ~i 

ed, regardless of blaS areas * 1S alwayS dump ' 

Control Cards: 



C0RE requires no control cards. 



Input : 



C0RE uses no input. 



OUTPUT: 



a) a line representing the characters 
d; a line representing the word-marks 
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c) a line containing annotation, both horizontal 
position and the hundreds-address (in both 
3-character and 5-digit form) . Wherever a 
position contains a group-mark, a 'G* overlays 
the horizontal-position annotation. 

d) a blank (spaced) line. 

ERROR MESSAGES AND HALTS: 

No halts or messages may occur during use of C0RE. 

OPERATING PROCEDURES: 

Set-up is as noted in a previous paragraph. Operation 
of C0RE should be completely automatic. 

End-Of-Job, Post-Processing : 

C0RE is an "in-line" macro — control enters it in 
sequential fashion and is passed from it in sequential 
fashion. Thus the programmer should provide instruc- 
tions following the C0RE macro to accomplish whatever 
purpose he desires following completion of the core dump 
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PROGRAM: DL0AD 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The DL0AD macro, when executed, causes a program block 
to be loaded onto the Operating System library. Various 
operands of the macro control the fashion in which the 
program is subsequently loaded into core. Only the 
program name need be known to call the program once it 
is loaded onto the library. This document ^complemen- 
ted by the description of the DL0DR program (KC06A), 
which is called by the macro. 



RESTRICTIONS: 

Time, Cor e R eq uire ments : 

The DL0AD macro executes in less than 3 seconds. The 
overall DL0AD process, including operation of the DL0DK 
program (KC06A), may take between 10 and 30 seconds. 
Core requirement is in the range of 363-375 core 
positions. 

PROGRAM PROCEDURE: 

SeJ^Up_^_Previ ous_Proces sing : 

The Operating System pack should be on one of the 1311 
disk drives at execution time. Paper at least 8 l/d 
inches in both width and height should be mounted on 
the 1403 printer. The DL0AD macro is often executed as 
the result of running an object deck under the L0AD pro- 
gram (KC07A), or as a result of an AUT0C0DER or C0B0L 
"RUN THRU EXECUTI0N" under the SYSCL program (KC10A). 

Pr o c e s s i n g/ Me ■ t ■ h o_dj_ 

A detailed description of DL0AD processing is found 
below in the paragraph on Processing Method — Technical 
Description. 
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USAGE: 



Operands : 



Only operand 1, the Program Name operand, is required. 
Operands 2 through 11 are optional. 

1) Program Name (required) 

This operand must be present, and should be 1 to 6 
characters, digits or special characters in length. 
The name of a program under the Operating System 
may not contain record marks or commas, and should 
not end in a period. Care must be taken to avoid 
name conflicts with previously loaded programs, 
or with programs to be loaded in the future. A 
name like PR0CSS would be undesirable in the latter 
context. 

The name in the DL0AD macro is simply written as an 
operand, and is neither surrounded by "at" signs as 
a literal nor given in a DCW elsewhere. 

2) Execution Address (optional) 

This operand gives the location at which execution 
is to be begun after a LINK or ALINK macro is per- 
formed. If the operand is omitted, the program 
block may be accessed only by means of a FETCH macro, 
The operand may be symbolic or actual, indexed 
and/or adjusted. 

3) Load-Into-Core Address (optional) 

This operand gives the location at which the program 
block is to be read into core. If the operand is 
omitted, the load-into-core address is synthesized 
as the first word-marked or non-blank character 
above position 86. The operand may be symbolic or 
actual, adjusted but not indexed, and If given, 
should be in the range 8l to 15908 inclusive. Ten 
positions below this address must be available for 
use when the program block is loaded. 

4) Suggested Group-Mark Word-Mark Address (optional) 

This operand gives the location one above the last 
core position which must be loaded into core with 
the program block. If the operand is omitted, the 
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suggested group-mark word-mark address is synthesized 
as one above the last word-marked or non-blank 
character in core (not considering the EXIT macro 
and common field left in core by the L0AD program). 
The operand may be symbolic or actual, adjusted but 
not indexed, and if given should be greater than the 
f?nno e address and less than or equal to 
15990. The "actual group-mark word-mark address" 
is constructed by the DL0DR program (KC06A), and may 
be equal to, or up to 89 positions higher than, the 
suggested GMWM address. 

5) Clear-Storage-Prom Address (optional) 

This operand gives the highest core position to be 
cleared to blanks prior to loading the program. If 
the operand is omitted, the clear-storage-from 
address is 15999. The operand may be symbolic or 
actual, adjusted but not indexed, and if given 
should be greater than or equal to the suggested 
group-mark word-mark address. 

6) Clear-Storage-To Address (optional) 

This operand gives the lowest core position to be 
cleared to blanks prior to loading the program. If 
the operand is omitted, the clear-storage-to address 
is 01. If this address is less than the load-into- 
core address minus 10, a word mark is associated 
with the position after loading. The operand may 
be symbolic or actual, adjusted but not indexed, 
and if given should be less than or equal to the 
load-into-core address. 

7) I0CS Date Decision (optional) 

If it is desired that the I0CS date be loaded into 
positions 82-86 as part of the loading process for 
the program block, include "Y" or "YES" as operand 
i'^ L J2 operand is other than these or is omit- 
ted, the I0CS date is not loaded. 

8) Program Common Location (optional) 

««ih I* de ^ re ? that the 9-character program common 
Held from the log-start card or the LINK or FETCH 
macro be placed in a specified location during the 
loading process, include that location (right-end) 
as operand 8. If this operand is omitted, the 
program common field will not be passed to the 
program block. The operand may be symbolic or 
actual, Indexed and/or adjusted. 
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9) Origin Address (optional) 

If operand 9 is included, it is used as an origin 
address for the DL0AD macro. A branch instruction 
to DL0AD is included at the in-line location if 
operand 9 is used. The operand may be symbolic or 
actual, adjusted but not indexed. 

10) Immediate Execution Address (optional) 

If operand 10 is included, the program block is 
immediately LINKed to after it is loaded to disk, 
with execution beginning at the address specified 
by operand 10. This operand need not be the same 
as the execution address (operand 2); indeed, 
there need be no execution address specified at 
all. In all other respects (core-clearing, etc.) 
the "immediate execution" LINK process Is exactly 
like that of a normal LINK to the program block. 
Additional information can be found in the write-up 
of the DL0DR program (KC06A) . Segmentation of a 
single source (object) deck into two or more disk 
stored program blocks can be done through use of 
operand 10 in intermediate DL0AD macros, with 
immediate execution to a branch to the condensed 
loader or self-loading deck. 

The operand may be symbolic or actual, adjusted 
but not indexed. 

11) System Disk Address/"No Group-Mark Word-Mark 
Restoration" Specification (optional) 

If this operand is included, it should be a five- 
digit number. If the operand is in the range 10000 
to 19790, the operand specifies that the program 
block should be loaded to disk starting at that 
sector address, and should never be moved in the 
future. The five-digit number can then be used 
as the operand of an ALINK macro (KP01A) in other 
programs. The user considering use of such a 
"system disk address" should consult a recent pro- 
gram list produced by PLIST (KC08A) to determine a 
suitable address. 

Whether or not the operand Is In the above-mentioned 
range, group-mark word-marks are not restored (left 
as word-marked colons) during the loading process 
for the program block, simply because the operand 
Is present. This non-restoration greatly increases 
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the speed of LINKs or FETCHes done on the program 
block (as much as 20 times), but has the disadvan- 
tage that the programmer must create his own group- 
mark word-marks. If only this latter purpose is 
intended, use of 00000 as operand 11 is recommended 



Control Cards: 



The DL0AD macro uses no control cards. 



The DL0AD macro uses no input. 



OUTPUT: 

The DL0AD macro itself produces no output. However, 

the DL0DR program (KC06A), which is called by the DL0AD 

macro, produces output as described in the write-up of 
that program. 

ERROR MESSAGES AND HALTS: 

If the program name (operand 1) is not included in the 
DL0AD macro, the message 

*1* DL0AD ERR0R - NAME MUST BE PRESENT 

is generated in the source program, followed by a hard 
halt. 

Aside from this, the only halts or messages possible in 
the DL0AD macro itself are the standard system disk 
halts and messages. The user should consult the write- 
up for the DL0DR program (KC06A) concerning the several 
halts and messages possible in that phase of the DL0AD 
process. 



OPERATING PROCEDURES: 



Set-up is as described in a previous paragraph. No 
special operating procedures need be given for the macro 
itself. Consult the Operating Procedures for the DL0DR 
program (KC06A). 
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End-Of-Job, Post-Processing : 

See the Post-Processing paragraph for DL0DR (KC06A) 

PROCESSING METHOD - TECHNICAL DESCRIPTION: 



The drive on which the Operating System Pack resides is 
determined by reading the first sector of the loader of 
the DL0DR program (KC06A). Module 1 is tried first, 
then module if the first attempt fails. A halt 
results if both attempts fall. 

A loop is used to clear all group-mark word-marks out 
of core, except for one in position 15998, replacing 
them with word-marked colons ( a colon is a 5-8 card 
code). All of core is then written to sectors 000000 
through 00176 of the Operating System Pack. 

The operands of the macro are set up in locations 
15965 to 15997. The first sector of the DL0DR program 
(KC06A) is again read, and control is transferred to 
it. 
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PROGRAM: 

MACHINE: 

LANGUAGE : 

SUPERVISOR PROGRAM; 

PROGRAMMER: 

DATE COMPLETED: 



DSKI0/I0GET/I0PUT/I0SK 

IBM 1401 

AUT0C0DER 

1401 Operating System II 

Systems Division 

July 1, 1968 



PURPOSE: 



The I0GET macro, when executed, causes a disk record 
to be read into core storage from a specified disk 
address . 

The I0PUT macro may be utilized to write data from 
core storage to disk storage. 

The I0SK macro, when executed, initiates a disk seek. 
Since direct seeks are done by I0GET and I0PUT if 
necessary, the I0SK macro is not required unless the 
programmer wishes to overlap processing time with 
access-movement time. 

All three macros generate linkage to the DSKI0 inflex- 
ible library routine, which performs the actual read/ 
write/seek operation and error checking. 

DSKI0 offers the facility of disk error checking with 
10 retries. 



RESTRICTIONS: 



DSKI0 requires about 548 core positions, while I0CS 
can take anywhere from the same number to several 
times that number (based on the number of DTF's) for 
random disk processing. Both I0CS and DSKI0 use the 
direct seek special feature; however, DSKI0 uses it 
automatically. DSKI0 will allow processing of records 
in either the move or load-mode, while I0CS can only 
handle records in the move-mode. Cylinder overflow 
is not handled by DSKI0; I0CS will process a record 
block that overflows from one cylinder to the next. 
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DSKI0 provides less facilities than I0CS and thereby 
greater flexibility for the programmer. The program- 
mer must provide for the following: 

a) header and trailer label creation and/or 
checking, if necessary. 

b) blocking/deblocking and padding, if necessary. 

c) address calculation if the disk control field 
is to be changed. 

Time, Core Requirements : 

Execution time for DSKI0 varies from 10 to 175 milli- 
seconds, depending on the distance to be seeked, rota- 
tional location, and the size of the data records. 

Execution time for I0SK varies from 50 to 250 milli- 
seconds, depending on the number of tracks to be seeked, 
but allows for processing overlap of up to 200 
milliseconds. 

Core requirement is between 20 and 44 core positions 
for each I0GET, I0PUT, or I0SK macro. The DSKI0 
routine requires 548 core positions. DSKI0 is included 
only once in the object program. 



PROGRAM PROCEDURE: 

Set-Up, Previous Processing : 

The referenced disk drive (s) should be operable. 

Proce s sing/M ethod : 

A detailed description of 1/0 macro processing method 
and linkage appears below in the paragraph on Process- 
ing Method — Technical Description. 



USAGE 



Operands : 

The I0GET and I0PUT macros require Operand 1; — 
Operands 2 through 8 are optional. 
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The I0SK macro uses only Operands 2, 3, 6, and 8. 

1. Mode 

This operand should be either an M, which will cause 
100-character sectors to read/written without word-marks, 
or an L, which will cause 90-character sectors to read/ 
written with word-marks. 

2. Drive Code 

This operand should be either or 2, depending upon 
which disk drive is to be referenced. If this operand 
is omitted, the value of will be assumed. 

3. Sector Address 

This operand gives the initial (or only) sector address 
for the first sector to be read, written, or seeked, 
00000 through 99999. This sector address may, in turn, 
be modified by the program. See operands 6 and 8, and 
Processing Method — Technical Description. 

4. Sector Count 

This operand gives the initial (or only) value of the 
number of sectors to be read/written/seeked; it may be 
modified by the program. 

5. Input /Output Area 

This operand specifies the left most end of the area 
which the disk record will be read into or written from. 
This area should be long enough to hold the largest 
record expected to be read/written in the file. If 
not included, the program must fill in the address. See 
Processing/Method. 

6. Out-Of-Line Disk Control Field Address 

This operand specifies the location of the ten-digit 
field where the out-of-line disk control field is located. 
It should be the label of a 10-character DCW or area- 
defining literal, or XI, X2, or X3 adjust tag. The 
I0GET, I0PUT, or I0SK macro will move this disk-control 
field into the generated linkage, if the out-of-line 
disk-control field address is specified. 
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7. Group-Mark Word-Mark Load 



The DSKI0 routine checks the wrong length record indica- 
tor and thus the input or output area must have a group- 
mark-word-mark in the proper location following the data 
area. Include the GMWM as operand 7 if it is desired 
that I0PUT or I0GET generate the instructions to load a 
group-mark-word-mark to the proper location. If this 
feature is used, operands 1, 4 and 5 must all be present 
If this feature is not desired, omit operand 7 entirely. 

8. Generated Disk-Control Field Label 

This operand, when used, will cause the included label 
(distinct from any other labels in the user's program), 
to reference the right end of the 10-digit generated 
disk control field. 

Control Cards : 

I0GET, I0PUT, I0SK, and DSKI0 require no control cards 

Input : 

The only input to these macros is the record on disk. 

OUTPUT: 



Aside from the core storage record, and the error message 
(see below), these macros produce no output. 



ERROR MESSAGES AND HALTS: 



When a disk error is detected, the message: 

**ERR0R** 
DISK INDIC.n 

is typed, where n is: 

a) N - access inoperable. 

b) W - wrong length record check. 

c) X - unequal address compare. 

d) V - validity check. 

and a halt occurs. 
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OPERATING PROCEDURES: 



When a disk error halt occurs, the operator should 
make certain that the disk drive is operable, and that 
the referenced file is on the correct drive, or else 
abort the run. 

Sn^-0 f^Job 2__Po s t ^r o ce ss ing_ : 

Control is transferred to the next sequential instruc- 
tion after the appearance of the I0GET, I0PUT, or 
I0SK macro, unless an error condition occurs. 

PROCESSING METHOD — TECHNICAL DESCRIPTION: 

The linkage generated by I0GET/I0PUT/I0SK consists of: 

a) a load of GMWM (if operand 7 is included) to 
the proper position determined by the number of 
sectors to be used and the mode. 

b) a move of the out-of-line disk control field, 
if operand 6 is included. 

c) a branch to the start of the DSKI0 routine. 
Processing in DSKI0 normally consists of: 

a) storing the return address. 

b) zeroing of the attempt counter. 

c) storing the disk control field. 

d) execution of the read-write operation. 

e) testing for an error condition. 

f) exit to location following the I0GET or I0PUT 
generated code. 

If a disk error is encountered, DSKI0 

a) adds to the attempt counter. 

b) retries the operation. 

c) if the attempt counter is up to 10 tries, an 
error zeros the attempt counter and halts. 
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Sample linkage: 

GET I0GET L, 2, 400,10, AREA, 0UTDCF,GMWM,DCF 



GET EQU *+l 

SW *+13 

LCA *+6,AREA+900 

B *+3 

DCW % % 

MCW 0UTDCF,*+2O 

B DSKI0 

DCW @L1R@ 

DSA AREA 

DCF EQU *+10 

DCW @20000400010@ 



Generated if load 
GMWM operand is used. 

Generated if operand 6 is used 

load mode read operation, 
input area. 

generated if operand 8 is used 
disk control field. 
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PROGRAM: EXIT 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The EXIT macro, when executed, returns control from a 
user program to the 1401 Operating System Inter-job 
supervisor (KE01A). A message is typed by that pro- 
gram, and the operator can enter the ending time of 
day and computer clock time for the job, as well as 
other information. UWMCC programming standards Indi- 
cate that the EXIT macro must be included as the end- 
of-job action for every AUT0C0DER or C0B0L program 
written at UWM, unless the operational details of the 
program preclude it, as when the end-of-job time is 
uncertain. 



RESTRICTIONS: 

T i me, Core _Re qui r^ments : 

Execution of an EXIT macro takes less than 2 seconds. 

If a FETCH or LINK macro has preceded the EXIT macro 
in the source program, core requirement is 25 positions 
Otherwise core requirement is 129 positions. 

PROGRAM PROCEDURE: 

SetzH2-2_LE.§.^t^ u .§— P^°£!issin£ 

The Operating System Pack should be on one of the 1311 
disk drives at execution time. If it is not, the 
system halts and should be started when the pack is 
mounted. No special previous processing is required. 
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Pro c esslng / Method : 

There are two alternate forms of the generated code 
constituting the EXIT macro. The form generated when 
a LINK (KF14A) or FETCH (KF09A). macro has preceded the 
EXIT 5n the source program is simply a LINK to the 
inter-job supervisor, M0NITR (KE01A). The form gener- 
ated if neither a FETCH nor a LINK has previously 
appeared in the source program is substantially an 
ALINK macro to address 19640. An attempt is made to 
read the first sector of the loader into the card read 
area, from module 1. If this fails, an attempt is 
made on module 0. If both attempts have failed the 
system halts. When either attempt succeeds, control 
is transferred to the instructions read from disk. 



USAGE: 

Operands : 

The EXIT macro uses no operands. The macro itself 
investigates each drive in turn for presence of the 
Operating System Pack. "Log-out" protection is 
afforded by the operator's ability to supply ending 
times to the inter-job supervisor, and must be sup- 
ported by policy which makes such entries mandatory 

Control Cards: 

The EXIT macro requires no control cards. 

Inpu t : 

The EXIT macro requires no input. 



OUTPUT 



EXIT itself produces no output. However the Inter-job 
supervisor, M0NITR (KE01A) , which is called by the EXIT 
macro, produces the console message 

» END-0F-J0B 

and, possibly, the printed end-of-job page as well as 
other" output as described in the write-up of that program, 
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ERROR MESSAGES AND HALTS: 



Only the standard system halts and messages may occur 
during execution of an EXIT macro. 



OPERATING PROCEDURES: 



Aside from the fact that the correct Operating System 
Pack must be mounted if a halt occurs, and the halt 
then started, no special operating procedures need be 
followed as far as the macro itself is concerned. 
Entry of the 'TM f and ' CC' codes should be made as 
soon as the end-of-job message is typed. 

End-Of -Job, Post -Processing : 



All of the previous paragraphs deal with end-of-job 
processing, since that is the purpose of the macro. 
Further information on the subject is given in the 
write-up on the inter-job supervisor, M0NITR (KE01A). 



1401 0. S. II 
I. D. § KP09A 
I. D. # KF14A 



PROGRAM: FETCH/LINK 

MACHINE: ' IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The FETCH macro, when executed, causes a program to be 
loaded into core from the 1401 Operating System Library. 
Control is then returned to the calling program, at the 
next sequential instruction after the appearance of the 
FETCH macro. 

The LINK macro, when executed, causes a program to be 
loaded in the same fashion as the FETCH macro. Control 
is then transferred to the called program block at the 
"execution address" specified when the program block 
was DL0ADed. 

Loading procedures for both macros are controlled by 
the program parameters established for the program block 
at DL0AD time. 

This document is complemented by the descriptions of 
L0ADR (KF15A) and L0DER (KF16A), the closed routines 
which are called by the LINK and FETCH macros. 



RESTRICTIONS: 



Time, Co re Requirements : 

The generated code constituting the LINK and FETCH macros 
requires less than one millesecond of execution time, 
and occupies between 11 and 26 core positions. 

The routines execute in between .1 and 2.0 seconds. The 
loader of the called program may require between .3 and 
30.0 seconds of execution time, depending on the length 
of the program and whether group-mark word-marks are 
restored. L0ADR requires 865 core positions. L0DER 
requires 940 positions. 
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PROGRAM PROCEDURE: 



S et- Up, P revi o us Processing : 

The Operating System pack must be on one of the 1311 
disk drives at execution time. The program to be called 
into core should have been previously loaded onto the 
Operating System Library by either the DL0DR program 
(KC06A) or the program loading service of DUP (KC09A). 

The programmer may write a LINK or FETCH macro at any 
point in his processing. 

Processing/Method: 

A detailed description of LINK and FETCH operation is 
found below in the paragraph on Processing Method — 
Technical Description. 



USAGE: 



The FETCH and LINK macros use two operands — Operand 1 
and Operand 3. Both are optional. Operand 2 is not 
used, for reasons of compatibility with previous versions. 

1. Program Name (optional) 

This operand, if present, gives the location of the 
name of the program to be called into core. It may 
be either a 6-character literal enclosed in quotes, 
containing the name left-justified, or the label of 
a 6-character DCW containing the name left-justified. 

If the operand is omitted, the programmer must pro- 
vide code, before the macro, to: 

a) move the program name to L0ADRA or L0DERA 

b) move either a dollar sign (indicating a LINK), 
or an address at which execution is to be 
begun after loading, into L0ADRX or L0DERX. 

This capability provides for multiple-entry-point 
subroutines . 

2. Not used. 
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3. Program Common (optional) 

This operand, if present, gives the location of the 
program common field to be passed to the called 
program. It may be a 9-character literal enclosed 
in quotes or the right-end label of a 9-character 
DCW. The contents of the field are determined by 
the program common conventions of the called program, 
One would not use this operand in calling a program 
which does not use program common. 

If the operand is omitted, the program common field 
used is blank. 

Control Cards : 

Neither LINK nor FETCH require control cards. 
Input : 

Neither LINK nor FETCH use input. 

OUTPUT: 

Neither LINK nor FETCH produce output. 

ERROR MESSAGES AND HALTS: 

Only the standard system halts and messages may occur 
during execution of LINK and FETCH. 

OPERATING PROCEDURES: 

No special operation procedures need be specified for 
LINK and FETCH. See the Operating Procedures for the 
closed routines L0ADR (KF15A) and L0DER (KF16A). 

End-Of-Job, Post-Processin g: 

On completion of loading: 

a) FETCH returns control to the calling program. 

b) LINK transfers control to the loaded program 
block. 

See the paragraphs on Purpose and Processing Method — 
Technical Description. 
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PROCESSING METHOD — TECHNICAL DESCRIPTION: 



Permanent macro switches are used to determine which 
of the two closed routines L0ADR or L0DER are included 
in the program, that only one of these is included, and 
that this one occurs only once in the program regard- 
less of literal origins. If an I0GET, I0PUT or I0SK 
macro has occurred in the program previous to the LINK 
or FETCH the L0ADR routine is Included and the generated 
code references that routine. If none of the disk 1/0 
macros has occurred, the L0DER routine is included and 
the generated code references that routine. Thus, if 
the programmer Is planning to use the disk 1/0 macros 
anyway, it is to his advantage to arrange his program 
with at least one I0GET, I0PUT or I0SK previous to the 
first appearance of a LINK or FETCH, since the L0ADR 
routine uses less core than L0DER. 

The following paragraph describes the LINK and FETCH 
transfer to the closed routines. Further explanation 
will be found in the document on L0ADR (KF15A) and 
L0DER (KF16A). 

If operand 1 is present in either macro, the program 
name is moved to L0ADRA or L0DERA. If operand 1 is 
present in a LINK, a dollar sign is moved to L0ADRX or 
L0DERX. If operand 3 is present in either macro, the 
program common field is moved to L0ADRZ or L0DERZ; 
otherwise, blanks are moved. A FETCH macro branches 
to L0ADR or L0DER, a LINK macro branches to L0ADR+4 
or L0DER+4. 



1401 0. S. II 
I. D. # KP13A 



PROGRAM: LE 

MACHINE: IBM 1*101 

LANGUAGE : AUT0C0DER 

SUPERVISOR: 1^01 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The LE (look-up-equal) macro provides a means of search- 
ing a table arranged in a standard fashion for a table 
entry having a key equal in value to a specified argu- 
ment. Table entries must be contiguous. They may vary 
in length, provided the key is at the right end and is 
of the same length as the argument in all entries. 
This macro simulates the operation of the IBM 1410 
hardware Instruction having the same AUT0C0DER mnemonic 



RESTRICTIONS: 

The rightmost position of a key must not contain a 
record mark in any entry of a table scanned by an LE 
macro. 

Time, Core Requirements : 

Execution time varies according to the number of entries 
that must be scanned before either a match or the end of 
the table is encountered, and according to the length 
of the entries and the length of the argument. 

Core requirement is 50 positions. 
PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

A table to be searched by an LE macro must be arranged 
in the following fashion: 

a) the order of the table is "right to left": that is, 
the first entry occupies the rightmost (highest 
addressed) positions of the table, and the end of 
the table is marked to the left of the last entry. 
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b) each complete table entry, including key and 
functional (return) value, must have a word-mark 
at its leftmost position and no other word-marks 
within it. 

c) the rightmost (highest addressed) n positions of 
each table entry must contain the key (the charact- 
ers to be compared to the argument of the macro), 
where n is the number of characters in the argument 

d) the functional (return) value of each table entry 
should be immediately to the left of the key for 
that entry. The functional (return) value may be 
as long as desired, but must be present in each 
entry (at least one character in length). 

e) the end of the table must be defined by a record 
mark (0-2-8 card code) immediately to the left of 
the last entry. Thus, the rightmost position of a 
key may not contain a record mark In any table 
entry. The macro operates correctly for a null 
table (one consisting of only a record mark). 

No special computer set-up is needed when using the LE 
macro. 

Proces sing/Metho d: 

The first operations in the generated code of the LE 
macro store the address of the table in the succeeding 
instructions. Then, for each table entry: 

a) a branch to the failure exit is performed if a 
record mark is detected in the rightmost position 
of the apparent "entry". 

b) the comparison of the argument to the key is made. 

c) the address of the functional (return) value is 
put into the match address location. 

d) addresses are adjusted Inside the macro for the 
possible next comparison. 

e) if the comparison was unequal, control is transfer- 
red back to step a) for the next entry. 



USAGE: 



Operand s : 

The LE macro uses four operands, all of which are required, 
as follows: 

1. Table Location 

This operand gives the location of the right end of 
the first entry in the table. It may be symbolic 
or actual, indexed and/or adjusted, 
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2. Argument Location 

This operand gives the location of the right end 
of the argument for which the table is to be searched 
It may be symbolic or actual, indexed and/or 
adjusted. 

3. Match Address Location 

This operand gives the location of the right end 
of a 3-character field into which the right end 
address of the functional (return) value is to be 
stored if a match occurs (if a key equal to the 
argument is found). 

4. Failure Branch Address 

This operand gives the address to which control is 
to be transferred if the entire table is scanned 
without a match. 

Control Cards: 

The LE macro requires no control cards. 
Input: 

The LE macro requires no input. 

OUTPUT: 



The LE macro produces no output. 
ERROR MESSAGES AND HALTS: 

No halts or messages may occur during execution of LE 
OPERATING PROCEDURES: 

No special operating procedures need be specified. 
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On completion of the execution of LE, if the argument 
matched the key of an entry in the table, control is 
transferred to the instruction following the LE, and 
the address of the functional (return) value in that 
entry is in the location specified by operand 3. It 
is common for operand 3 to specify an index register, 
to facilitate examination of the value by following 
Instructions. 

If no match occurred, control is transferred to the 
instruction specified by operand 4, and the location 
specified by operand 3 contains the address of the 
functional value of the last entry in the table. 
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PROGRAM : L0ADR/L0DER 

MACHINE: IBM 1<J01 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1*101 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The closed library routines L0ADR and L0DER, when 
included in a program and executed, cause a program to 
be loaded into core from the 1*401 Operating System 
library. One of these routines is automatically in- 
cluded in a program by use of a LINK (KP14A) or FETCH 
(KF09A) macro. The loading itself is accomplished 
through the disk-stored loader of the called program, 
and is controlled by the program parameters established 
for that program at DL0AD time. 

The only difference between the two routines is the 
fashion in which they perform disk input/output. L0ADR 
utilizes the DSKI0 routine, while L0DER contains its 
own disk 1/0 instructions. Thus L0ADR is shorter if 
DSKI0 is used by the program in its normal processing, 
but longer if DSKI0 must be specially included for this 
one purpose. L0ADR uses the direct seek capability of 
DSKI0, L0DER seeks on a return-to-home basis. Here- 
after, references _wi 11 be given in terms of the L0 ADR 
routine, since the processing done by the two routines 
is identical. The user should note that labels used 
by each are identical in their sixth character (e.g., 
L0DERX has the same role as L0ADRX) . 



RESTRICTIONS: 



T inii A _^r e _Re^u i remen t s : 

The closed routine requires between .1 and 2.0 seconds 
of execution time. The loader of the called program 
may take between .3 and 30.0 seconds to execute, depend- 
ing on the length of the program and whether group-mark 
word-marks are restored. L0ADR requires 865 positions; 
L0DER requires 9^0 positions. 
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PROGRAM PROCEDURE: 



S e t - U^^r e vl ou s _P r o c e s sjLn ^ : 

The Operating System pack should be on one of the 1311 
disk drives at execution time. The program to be called 
into core should have been previously loaded onto the 
Operating System library by means of the DL0DR program 
(KC06A) or the program loading service of DUP (KC09A). 

Processing/Method: 

A detailed description of L0ADR processing is found 
below In the paragraph on Processing Method — Technical 
Description. 



USAGE: 



Calling Sequence : 

A program common field should be moved into L0ARDZ. 
The name of the program to be called should be moved 
into L0ADRA. If the program block is to be executed 
at the "execution address" specified at its DL0AD time, 
a dollar sign should be moved to L0ADRX and a branch to 
L0ADR+4 performed. If execution is to continue at the 
next sequential instruction following the linkage to 
L0ADR, a branch to L0ADR should be performed. If 
execution is to be taken up at any other location, this 
location should be moved into L0ADRX and a branch to 
L0ADR+4 performed. If L0DER is to be used, substitute 
"L0DER" for "L0ADR" In the aforementioned labels. 

Control Cards : 

Neither L0ADR nor L0DER require control cards. 



Input : 



Neither L0ADR nor L0DER require input. 



OUTPUT: 



The closed routine itself produces no output. However, 
if the program name requested is not on disk, output 
from the PLIST program (KC08A) results. 
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ERROR MESSAGES AND HALTS: 



Only the standard system halts and messages may occur 
during execution of L0ADR or L0DER. 



OPERATING PROCEDURES: 

Aside from the fact that the correct Operating System 
pack should be mounted if a halt occurs, and the halt 
then started, no special operating procedures need be 
specified. 

E nd - f ^J o b ^P o s t - P ro ce s s in g_ : 

Control is transferred to the address described In the 
paragraphs on Calling Sequence and Processing Method — 
Technical Description. 

PROCESSING METHOD — TECHNICAL DESCRIPTION: 

The drive on which the Operating System pack resides 
is determined by reading the first three sectors of the 
program table. Module 1 is tried first; then module 0, 
if the first attempt fails. A halt results if both 
attempts fail. 

The program table is searched for the specified name, 
three sectors (20 entries) being read from disk at a 
time. If the name Is not found, or if it references a 
non-program entry, a diagnostic results and the PLIST 
program (KC08A) is called instead. 

The Operating System communications sector is read and 
the I0CS date and normal date are saved. The program 
header of the specified program is read and its identi- 
fication checked. If the check fails, a diagnostic is 
produced (the same as described in the preceding para- 
graph), and the PLIST program (KC08A) is called. If 
the check succeeds, the usage count and last use date 
are updated and the header is written back to disk. If 
L0ADRX contains a dollar sign, the execution address In 
the header sector is moved into L0ADRX. The last 2 
sectors of the 5-sector loader are then read, updated 
with the program common field, I0CS date, and execution 
address, and written back to disk. 
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The first sector of the loader of the specified program 
is then read into the card read area, and control is 
transferred to it. 
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PROGRAM: 0SINF 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The 0SINF macro, when executed, causes the Operating 
System communications sector to be read from disk, 
providing the user's program with the following infor- 
mation as established at the beginning of the job: 



job number and name 

man number and name 

date 

time of day 

day name 

I0CS date 

machine clock reading 

function code and name 



RESTRICTIONS: 

The 0SINP macro may only be executed once. 
Time, Core Requirements: 

Time required for execution of the 0SINP macro Is negli- 
gible: less than 50 milliseconds. Core requirement is 
207 positions. 

PROGRAM PROCEDURE: 



Set-Up, Previous Processing: 

The Operating System pack must be present on one of the 
1311 disk drives at execution time. No special set-up 
or previous processing Is required. The programmer may 
write an 0SINF macro at any point in his processing. 
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Processing /Metho d : 

When the 0SINF macro is executed, sector 399620 of the 
Operating System pack is read, in the move-mode. 
Module 1 is tried first; then module 0, if the first 
attempt fails. A halt results if both attempts fail. 
The 100-position area into which the "communications 
sector" is read contains the following labeled, word- 
marked fields, which the instructions following the 
0SINF macro may reference: 

Label Length Content 

J0BSC 7 job number 

JNMSC 13 job name 

MANSC 3 man number 

MNMSC 13 man name 

DATSC 10 date, time of day, in the format : 

yymmddhhtt 

(i.e. year-month-date-hour-minute, 
with the hour field in 24-hour time) 

day name 

I0SC date 

machine clock reading 

function code 

function name 

Elaboration on the meaning and possible contents of the 
more obscure of these fields can be found in the docu- 
ment on the Inter-Job Supervisor, M0NITR (KE01A). 

USAGE: 

Operan ds : 

The 0S INF macro uses no operands. 
C ontrol Cards : 

The 0SINF requires no control cards. 
I npu t : 

The 0SINF macro uses no input. 



DNMSC 


9 


I0DSC 


5 


CCTSC 


6 


FCTSC 


2 


FCNSC 


13 
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OUTPUT: 

The 0SINF macro produces no output 
ERROR MESSAGES AND HALTS: 



Only the standard system halts and messages may occur 
during execution of the 0SINF macro. 



OPERATING PROCEDURES:. 

No special operating procedures need be specified. 

End- Qf- Job, Post-Processing: 

The instructions following the 0SINF macro can refer- 
ence the labels described above in the paragraph on 
Processing/Method. 
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PROGRAM: 

MACHINE: 

LANGUAGE: 

SUPERVISOR PROGRAM: 

PROGRAMMER: 

DATE COMPLETED: 



0SL0C 

IBM 1401 

AUT0C0DER 

1401 Operating System II 

Systems Division 

July 1, 1968 



PURPOSE : 



The 0SL0C macro, when executed, causes the Operating 
System program table to be scanned for the presence 
of a particular program name. If the program block is 
present, the disk address of its first sector is return- 
ed as a result; if it is not, the result field is fill- 
ed with nines. 



RESTRICTIONS: 



No indication is returned to a program using the 0SL0C 
macro of 

a) whether the name (operand 1) referenced a 
non-program block, or 

b) the mode of that block. 

Ti me, Core Requirements: 

Execution time required for the 0SL0C macro varies 
according to the length of the program table, and the 
position of the name within the table. In any case, 
execution should require less than .5 seconds. 



PROGRAM PROCEDURE: 



S et-Up, Previous Processi ng : 

The Operating System pack should be on one of the 1311 
disk drives at execution time. The programmer may use 
an 0SL0C macro at any point during his processing. 
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P rocessing / Metho d : 

When the 0SL0C routine Is first executed, the drive on 
which the Operating System pack resides is determined 
by reading the first three sectors of the program table. 
Module 1 is tried first; then module 0, if the first 
attempt fails. A halt results if both attempts fail. 

The program table is searched for the specified name, 
three sectors (20 entries) being read from disk at a 
time. If the name is found, the drive code and address 
of the first sector of the program block are moved to 
the result field; if not, the field is filled with nines 

0SL0C is an in-line macro: control should enter at its 
first position, and is transferred to the next sequen- 
tial instruction following its appearance in the 

mainline. 



USAGE: 

Operands : 

The 0SL0C macro uses operands 1 and 2; both are required. 

1) Program Name 

This operand gives the location of the name for which 
the program table is to be scanned. It may be a 
6-character literal enclosed in quotes containing 
the name, left-justified, or the label of a 
6-character DCW containing the name, left- justified. 

2) Result Field 

This operand gives the location of the result field: 
it should be the label of a 7-character DCW or area- 
defining literal. If the program specified by 
operand 1 is in the Operating System library, the 
Operating System drive code is inserted in the field, 
followed by the actual (380,000 file-protected) 
address of the first sector of the program block. 
If it is not present the field is filled with nines. 

Control Cards : 

The 0SL0C macro requires no control cards. 

Input : 

THE 0SL0C macro uses no input. 
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OUTPUT: 

The 0SL0C macro produces no output. 
ERROR MESSAGES AND HALTS: 

Only the standard system halts and messages may occur 
during execution of the 0SL0C macro. 

OPERATING PROCEDURES: 

Aside from the fact that the correct Operating System 
pack should be mounted if a halt occurs, and the halt 
then started, no special operating procedures need be 
specified. 

End-Of-Job, Post-Process ing: 

Control is transferred to the next sequential instruction 
following the 0SL0C generated code. There, the program- 
mer can write code which tests for the presence of nines 
in the result field, and may wish to write code to read 
the header sector of a program, the actual sectors of 
a program, or the data sectors of a non-program block. 
In a program, the disk address returned is that of the 
header sector, and the first sector of the program it- 
self is located at that address plus 6. In a non-program 
block, the disk address returned is that of the first 
data sector. 
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PROGRAM : RDTPM/TPERR 

MACHINE: IBM 1401 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The RDTPM macro, when executed, causes a tape record 
to be read into a specified area of core storage, from 
a specified tape unit. It accomplishes this by setting 
up linkage to the TPERR inflexible library routine, 
which performs the actual tape operation and error 
checking. RDTPM and TPERR offer the following 
facilities': 

a) tape error checking with 50 retries. Control is 
transferred to the user's error routine if the 
error persists. 

b) storage of the address of the last position 
brought into core (the group-mark). 

c) transfer to a user routine on an end-of-reel/file 
condition (tape mark or reflective spot sensed). 



RESTRICTIONS: 



RDTPM and TPERR require less core than I0CS, but pro- 
vide less facilities and thereby greater flexibility 
for the programmer. The programmer must orovide 
facilities for: 

a) tape control (RWD, RWU, etc.), except for error- 
backspacing. 

b) wrong-length record checking, if desired. 

c) header and trailer checking and block counts, if 
desired. 

d) deblocking and padding if necessary. 

e) variable-length record group-mark. 

f) distinction between end-of-reel and end-of-file 
conditions . 

Load-mode operation can be accomplished with RDTPM and. 
TPERR by moving an "L" into NEXT-8, and binary operation 
can be accomplished by moving a "B" into NEXT-6 , where 
NEXT is the location following the RDTPM generated code. 
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Time 3 Core Requi r ements: 

Processing rate is dependent on the speed of the tape 
units and the density and record-length of the file. 
RDTPM and TPERR have less "execution overhead" than 
I0CS tape routines, but this time is not significant 
in either case. 

RDTPM generated code requires HO positions; the TPERR 
routine requires 86 positions plus a 3-character liter- 
al. TPERR is included only once in the object program. 



PROGRAM PROCEDURE: 



Set-Up 3 Previous P rocess ing: 

There must be an input tape on the drive referenced by 
RDTPM. 

Proce ssing/M ethod : 

A detailed description of RDTPM processing and linkage 
appears below in the paragraph on Processing/Method — 
Technical Description. 



USAGE: 



O per ands : 

Operands 1 through 5 are required for the RDTPM macro: 
no other operands are used. 

1) Tape Unit 

This operand should be a single-digit number, 
1 through 6 inclusive. 

2) Input Area 

This operand specifies the left end of the input 
area Into which the next record on the drive speci- 
fied by operand 1 is to be read. The area should 
be followed by a group-mark with a word-mark, and 
be long enough to hold the largest record expected 
on the file, plus one extra position for the end-of- 
record group-mark. 
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3) Location for Group-Mark Address 

This operand specifies the location of a three- 
digit field into which the address of the group- 
mark following the record will be placed. It 
should be the label of a 3-character DCW, an 
area-defining literal, or XI, X2, or X3. This 
field may be checked for correct record length 
by instructions following the RDTPM macro. 

H) End-Of- Reel/Pile Address 

This operand specifies the label of the first 
instruction in the user f s end-of-reel/file routine 
This address is branched to when a tape-mark or a 
reflective spot is sensed. 

5) Error Address 

This operand specifies the label of the first 
instruction in the user's error recovery routine. 
This address is branched to if 50 retries to read 
the record all encounter tape errors. When the 
error routine is entered, the tape is positioned 
just past the error record. 



Control Cards : 



The RDTPM macro requires no control cards. 



The only input consists of the move-mode BCD record to 
be read from tape. 



OUTPUT : 

RDTPM and TPERR produce no output 
ERROR MESSAGES AND HALTS: 



No halts or messages occur during execution of RDTPM 
and TPERR. The user may wish to provide halts or 
messages in the error or end-of-file routines. 
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OPERATING PROCEDURES: 

No special operating procedures need be specified. 

End-Of-J ob, Po st -Processing : 

With variable-length records, the programmer should 
insure against subsequent-record cutoff by moving a 
blank, a record mark, etc., into the group-mark 
location. 

In the end-of-file routine, the programmer should 
rewind the tape unless it is to be read further. 

PROCESSING METHOD — TECHNICAL DESCRIPTION: 

The linkage generated by RDTPM consists of: 

a) movement of an appropriate read-tape instruction 
into TPERR. 

b) storage of the address of the "group-mark address 
location "into TPERR. 

c) storage of the tape-error and end-of-reel/file 
addresses into TPERR. 

d) a branch to the start of the TPERR routine. 

Processing in TPERR normally consists of: 

a) storage of the return address. 

b) zeroing of an error counter. 

c) execution of the actual tape read instruction. 

d) storage of the group-mark address into the speci- 
fied location. 

e) testing for an end-of-file condition. 

f) testing for an error condition. 

g) exit to the location following the RDTPM generated 
code. 

If a tape error is encountered, TPERR: 

a) adds to an error counter. 

b) exits to the error address provided if the error 
counter has reached 50. 

c) backspaces the tape. 

d) proceeds to normal-processing step c) above. 
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PROGRAM: VLCHK 

MACHINE: IBM 1401 

LANGUAGE: AUT0C0DER 

SUPERVISOR PROGRAM: 1401 Operating System II 

PROGRAMMER: Systems Division 

DATE COMPLETED: July 1, 1968 



PURPOSE: 



The VLCHK macro is an error checking routine for vari- 
able length tape records. VLCHK computes the proper 
last character address of the given variable length 
tape input record, and compares this address with the 
I0CS last character address for that record, transfer- 
ring control to the user's error routine on an unequal 
compare. 



RESTRICTIONS: 

The maximum record length which can be checked by 
VLCHK is 1999 characters. 

Time, Core Requirements : 

Execution time is less than 50 milliseconds. 

Core requirement varies from 25 to 68 core positions 

PROGRAM PROCEDURE: 



Set-Up, Previous Processing : 

The VLCHK macro may only be used after a variable 
length tape record has been read. 

Processing/Method : 

Two forms of the generated code constituting the VLCHK 
macro may be produced, depending on the length of the 
record length field. The address of the left end of 
the input area is moved to a sum box. This sum box is 
modified by use of the MA instruction which references 
the right most 3 digits of the length field. If the 
length of the record length field is 4 digits, code is 
generated to modify the sum box by an additional 
thousand. 
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USAGE: 



Operands : 

The VLCHK macro uses operands 1 through M; no other 
operands are required. 

1.. Input Area 

This operand specifies the left end of the input 
area, into which the tape record was read. 

2. Record Length 

This operand specifies the core location of the 
tape record length field. It may be symbolic or 
actual, indexed and/or adjusted. 

3. Length of the Record Length 

This operand specifies the number of digits con- 
tained in the record length field. It may be 
either 3 or 4. 

4. Error Address 

This operand specifies the label of the first 
instruction in the user f s error recovery routine. 
If a wrong length record is read, VLCHK branches 
to this instruction. 

Control Cards : 

The VLCHK macro requires no control cards. 

I nput : 

A variable length tape record must have been read before 
the VLCHK macro may be used. 

OUTPUT: 

The VLCHK macro produces no output. 



1401 0. S. II 
VLCHK - p. 3 



ERROR MESSAGES AND HALTS: 



No halts or messages may occur during execution of the 
VLCHK macro. 



OPERATING PROCEDURES: 

No operating procedures need be specified. 

End-0f-Job a Post-Pr ocess ing: 

Control is returned to the next sequential instruction 
following the VLCHK macro unless the error condition 
has been detected, in which case control is transferred 
to the user's error routine (see Operands). 
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PROGRAM: 

MACHINE : 

LANGUAGE: 

SUPERVISOR PROGRAM: 

PROGRAMMER: 

DATE COMPLETED: 



WRTPM/TPERW 

IBM 1401 

AUT0C0DER 

1401 Operating System II 

Systems Division 

July 1, 1968 



PURPOSE: 



The WRTPM macro, when executed, causes a tape record 
to be written onto a specified tape unit, from a speci- 
fied area of core storage. It accomplishes this by 
setting up linkage to the TPERW inflexible library 
routine, which performs the actual tape operation and 
error checking. WRTPM and TPERW offer the following 
facilities: 

a) tape error checking, with 3 retries per tape loca- 
tion and 20 skip-and-blank sequences before transfer 
to the user's error routine. 

b) transfer to a user routine on an end-of-reel condi- 
tion (reflective spot sensed). 



RESTRICTIONS: 



WRTPM and TPERW require less core than I0CS , but provide 
less facilities and thereby greater flexibility (with 
greater effort) for the programmer. The programmer must 
provide facilities for: 

a) tape control (RWD, RWU, etc.) except for error- 
backspacing. 

b) writing of tape marks (WTM) or other end-of-file 
indication. 

c) header and trailer checking and block counts, if 
desired. 

d) blocking and padding, if necessary. 

e) variable-length record group-mark erasure, If 
appropriate. 

Load-mode operation can be accomplished with WRTPM and 
TPERW by moving an "L" into NEXT-8, and binary operation 
can be accomplished by moving a "B" into NEXT-6, where 
NEXT is the location following the WRTPM generated code. 
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Time, Core Req u irements : 

Processing rate is dependent on the speed of the tape 
units and the density and (average) record length of 
the file. WRTPM and TPERW have less "execution over- 
head" than I0CS tape routines, but this time is not 
significant in either case. 

WRTPM generated code requires 33 positions; the inflex- 
ible TPERW routine requires 107 positions plus a 
3-character literal. TPERW is included only once in 
the object program. 

PROGRAM PROCEDURES: 

Set-Up, P revious Proces sing: 

At execution time there must be an output tape (with 
ring) mounted on the tape drive referenced by the macro. 

P rocessing/Me thod: 

A detailed description of WRTPM and TPERW processing 
and linkage appears below in the paragraph on Processing 
Method — Technical Description. 



USAGE: 



Operands : 

Operands 1 through H are required for the WRTPM macro; 
no other operands are used. 

1) Tape Unit 

This operand should be a single-digit number, 
1 through 6 inclusive. 

2) Output Area 

This operand specifies the left end of the output 
area from which the record is to be written to the 
drive specified by operand 1. The last position 
of the physical record to be written should be 
followed by a group-mark with word-mark. 
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3) End-Of-Reel Address 

This operand specifies the label of the first 
instruction in the user's end-of-reel routine. This 
address is branched to if a reflective spot is 
sensed. 

4) Error Address 

This operand specifies the label of the first 
instruction in the user's error recovery routine. 
This address is branched to after 20 skip-and- 
blank-tape sequences have been attempted, with 3 
write attempts at each position, if all 60 write 
attempts produced error indications. This gener- 
ally indicates either a malfunction of the tape 
unit or controller, or a reel of tape in extremely 
bad condition. 

Control Cards : 

Neither WRTPM nor TPERW require control cards. 
Input : 

Neither WRTPM nor TPERW use input. 

OUTPUT: 



The only output consists of the move-mode BCD record 
to be written to tape. 



ERROR MESSAGES AND HALTS: 



No halts or messages should occur in either WRTPM or 
TPERW. The programmer may wish to provide halts or 
messages in the error or end-of-file routines. 



OPERATING PROCEDURES: 

No special operating procedures need be specified. 
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End-Of-Job, Post-Processin g: 

With variable-length records, the programmer should 
insure against subsequent-record cutoff by moving a 
blank, record mark, or data field over the group-mark 
with word-mark used to terminate the tape-write. 

In the end-of-reel routine, the programmer should rewind 
the tape unless records are to be written following the 
reflective spot. 

After all records have been written, the user f s program 
should execute one or two write-tape-mark (WTM) 
instructions. 



PROCESSING METHOD — TECHNICAL DESCRIPTION: 



The linkage generated by WRTPM consists of: 

a) movement of an appropriate write-tape instruction 
into TPERW. 

b) storage of the tape-error and end-of-reel addresses 
into TPERW. 

c) a branch to the start of the TPERW routine. 

Processing in TPERW normally consists of: 

a) storage of the return address. 

b) zeroing of the skip counter. 

c) zeroing of the attempt counter. 

d) execution of the actual tape-write instruction. 

e) testing for an error condition. 

f) testing for an end-of-reel condition. 

g) exit to the location following the WRTPM generated 
code. 

If a tape error is encountered, TPERW: 

a) adds to the attempt counter. 

b) backspaces the tape. 

c) if the attempt counter is not up to 3, proceeds to 
normal-processing step d) above. 

d) adds to the skip counter. 

e) exits to the error address provided if the skip 
counter is up to 20. 

f) skips and blanks six Inches of tape. 

g) proceeds to normal-processing step c) above. 
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PROGRAM: WS 

MACHINE: IBM 1*101 

LANGUAGE : AUT0C0DER 

SUPERVISOR PROGRAM: 1*101 Operating System II 
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DATE COMPLETED: July 1, 1968 



: UjRPOSE: 



The US macro provides a means of coding write-with- 
space-suppression instructions. The macro may be 
written with or without a branch address, and Is in 
this and all other respects, identical to the write (V/) 
instruction, except that an S is added as the D- 
character. 

For further information on this macro, see: 

IBM' publication A24-3071, 

Special Features Instructions 
IBM 1*101 Data Processing System 
IBM 1 n 6 Data Processing System 
File No. 1*101/1*^0-13. 
Page 1-49. 
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Appendix A 

Standard System 
Halts and Messages 



The halts and messages listed below are standard for the 1401 
Operating System, Version II. Details pertaining to operating 
procedures will be found in the document on the program during 
which the halt or message occurs. 



Messages : 

1. WAITING 

This message is produced by the Inter-Job Supervisor 
M0NITR (KE01A). 

2. **ERR0R** 
DISK INDIC. n 

This message is produced by the DSKI0 macro, KF07A. 

n=N, access inoperable. 
n=W, wrong length record check. 
n=X, unequal address compare. 
n=V, validity check. 



Plaits : 



^bM^ress Source _of _Halt 

804 M0NITR (KE01A) 

HI EXIT macro (KF08A) 



Note: 



If the system comes to a hard halt during operation 
of DUP (KC09A), the Operating System Pack has been 
damaged. 



